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FOREWORD 


This  technical  report  Is  submitted  to  the;  US  Army  Belvolr  Research  and  Development  Center 
(BRDC),  Fort  Belvolr,  Virginia  under  Contract  Number  DAAK70-83-D-0019,  Task  Order  19,  by  The  BON 
Corporation,  7915  Jones  Branch  Drive,  HcLean,  Virginia.  "This  report  docuaents  the  status  of  the 
Combat  Service  Support  mission  Area  Materiel  Plan  (CSS  MAHP)  software  as  of  30  September  1985.  The 
software  Is  continually  evolving  as  Is  the  underlying  data  base,  so  the  reader  Is  cautioned  to 
explore  the  actual  software  for  further  refinements.  The  text  of  this  document  Is  available  on  the 
BRDC  Plexus  P60  computer  for  convenient  reference  and  update.  The  HAMP  Is  Implemented  on  the  P60 
using  the  Informix  Database  Management  System  of  Relational  Database  Systems,  Inc. 

This  document  does  not  Include  sample  program  outputs  because  they  are  typically  classified. 
The  reader  Is  urged  to  refer  to  the  three  BRDC  published  CSS  NAMP  documents  of  February,  May,  and 
September  1985  for  the  actual  output  of  this  software.  The  February  Plan  Illustrates  the  historical 
evolution  of  the  automated  MAMP  process.  The  May  Plan  introduces  several  new  report  formats  for 
commodities,  projects,  systems,  and  workpackages .  The  September  Plan  Introduces  the  funding  profiles 
format  for  deficiencies  and  commodities. 
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CHAPTER  I 

HOW  TO  P'm  THE  CSS  NAMP 

I, 

This  chapter  presents  reasonably  concise  Instructions  on  how  to  run  CSS  NAMP  reports.  It  Is 
Intended  as  an  easy  reference  guide  for  the  Plexus  systew  user  who  Is  asked  to  prepare  any  of  the 
seventeen  specific  preprogramed  reports  of  the  NAMP.  The  text  of  this  chapter  Is  on-line  at  the 
file  /u/plan/dociment/howto.  Corrections  or  revisions  to  this  text  should  be  posted  to  that  file. 
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A  GENERAL 

These  instruction*  presume  that  the  reader  is  able  to  run  the  machine  and 
is  familiar  with  Informix.  Some  of  the  'instructions  get  a  bit  tricky*  so 
they  will  be  very  explicit.  The  first  task  is  to  decide  exactly  what  is 
going  to  be  in  the  report  to  be  printed.  There  are  a  lot  of  different 
individual  reports  to  address  a  wide  variety  of  questions.  So  the  first 
requirement  is  to  get  an  exact  description  of  which  reports  are  desired  and 
in  which  order. 

The  MAMP  reports  are  set  up  to  take  the  page  number  as  a  parameter.  This 
is  the  starting  page  number  for  that  report.  Usually*  but  not  always  the  first 
printed  page  in  a  volume  will  be  page  1.  If  more  than  one  report  is  in  the 
same  volume  then  the  next  report  will  start  on  a  page  number  that  is  determined 
by  the  length  of  the  previous  report.  The  standard  UNIX  function  "tail"  can 
be  used  to  see  which  page  was  last  printed  prior  to  starting  processing  on  the 
next  report.  For  example  "tail  commod. out"  will  give  the  last  page  used  in 
the  commodity  summary  report. 

It  is  possible  to  set  up  some  shells  (which  are  preprogrammed  sequences 
of  operating  system  commands)  such  as  /u/plan/db/system  to  take  away  all  the 
drudgery  of  running  any  particular  volume.  But  this  presumes  that  the 
volume  configuration  is  stable  -  which  it  isn't.  It  also  takes  all  the 
understanding  of  the  process  away  from  the  operator.  Therefore*  these 
instructions  will  focus  on  doing  it  the  hard  way  -  the  way  it  was  don* 
for  the  Nay  89  HA HP  -  and  not  on  the  way  it  can  be  done  using  shells. 


B  GETTING  STARTED 

1.  Complete  all  changes  to  the  data  base.  Data  base  changes  during  the 
process  of  running  the  MAMP  are  deadly.  All  kinds  of  Strang*  event*  have  been 
known  to  result  from  last  minute  changes.  All  of  them  are  very  frustrating 
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2.  Run  spot  chocks  of  tho  data  baso  using  informer  or  some  ad  hoc 
reports.  Those  will  help  identify  problems  that  may  bo  lurking  in  there. 
Specifically!  you  are  looking  for  major  defects  in  the  database  that  will 
have  an  obvious  impact  on  the  printed  reports  and  which  historically  have 
been  common.  Informer  is  a  perfect  tool,  for  this  since  the  problems  will 
change  over  time.  My  favorites  are: 

(a)  This  is  used  to  find  systems  which  do  not  have  completely 
specified  ssndesc  entries.  They  will  shbw  up  as  complete  separate  pages 
in  the  commodity  report. 

read  into  a 

csscontrol_ssn_no  ssndesc_cmd  ssndesc_ma jor_system 
where  sandosc_cmd»"  ”  or  ssndesc_ma jor_system>*“  “ 
joining  csscontrol_ssn_no*optlonal  ssndesc_ssn_no; 

<b>  This  is  used  to  quickly  find  all  the  commodity  line  -  command 
combinations  which  will  be  printed  in  the  commodity  report.  Check  for 
misspelled  commodity  lines. 

read  into  a 

unique  ssndesc_ma jor_system  ssndesc_cmd 
joining  ssndesc _ssn_no“csscontrol_ssn_no» 

(c)  This  is  used  to  find  systems  which  for  some  reason  do  not  have 
system  titles  or  mission  areas  defined.  They  look  bad  in  the  system  and 
deficiency  reports. 

read  into  a 

csscontrol_ssn_no  lrpproc_s sn_title  lrpproc_mi »s_name 
where  lrpproc_ssn_title'»B  "  or  lrpproc_miss_name»M  “ 
joining  csscontrol_ssn_no>optlonal  lrpproc_ssn_noi 

(d)  This  is  used  to  identify  the  workpackage  command  names  that 
have  been  used  in  the  data  base.  Sometimes  there  are  inconsistent  spellings 
Also  useful  in  deciding  what  commands  belong  to  "PM's"  and  to  "Others". 

lijd  into  a  unique  wkpkg_cmdi  *. 
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3.  All  obvious  data  orrors  should  bo  corrected  at  this  time!!! 

4.  Rebuild  the  temporary  utility  files  that  are  commonly  used.  These 

are  pseudolink.  ssnpri.  and  assoc.  This  process  takes  a  while  (at  least  1 
hour),  so  be  sure  you  are  hap;y  with  the.  data  contained  in  the  parent  files: 
mergessn.  ssndef.  and  rollup  respectively.  The  following  shells  are  used 

to  rebuild  them: 

/u/p lan/db/bui ldps  -  rebuilds  the  pseudolink  fiif  from  the  mergessn  file. 

This  is  mandatory  if  any  of  the  workpackagr  to  system  linkages  in 
mergessn  have  changed.  Otherwise  they  null  not  be  reflected  in 
any  of  the  printed  reports. 

/u/plan/db/addmergessn  -  optionally  rebuilds  mergessn  from  the  pzeudolink  file. 
As  it  does  so.  it  alphabetizes  the  SSN's  and  eliminates  duplicate 
entries.  Be  sure  that  buildps  has  been  run  first  so  that  pseudolink 
is  current. 


/u/p lan/db/bui ldssnpr i  -  rebuilds  the  ssnpri  file  from  the  ssndef  file.  This 
is  mandatory  if  any  of  the  system  to  deficiency  linkages  in  ssndef 
have  changed.  This  is  particularly  important  to  the  deficiency 
reports. 

/u/plan/db/addssndsf  -  optionally  rebuilds  ssndef  from  the  ssnpri  file.  As  it 
does  so.  it  numerically  orders  the  deficiencies  and  eliminates 
duplicate  entries.  Be  sure  than  buildssnpri  has  been  run  first  so 
that  ssnpri  is  current. 

/u/p lan/db/bui Idassoc  -  rebuilds  the  assoc  file  from  the  rollup  file.  Assoc  is 
only  used  in  reconstituting  the  procurement  funding  for  rollup  NSI's. 
It  is  mandatory  to  rebuild  it  if  the  rollup  to  associated  BSN 
linkages  have  bean  changed. 

/u/p lan/db/addrol lup  -  optionally  rebuilds  the  rollup  file  from  the  assoc  file. 

As  it  does  so.  it  alpbabetiies  the  associated  SSN's  and  eliminates 
duplicate  entries.  Be  sure  to  run  buildassoc  first  so  that  assoc 
is  current. 
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/u/p lan/db/assocrol lup  -  modifies  tht  procurement  funding  dollars  in  lrpproc 
for  rollup  systems  which  are  NSI's.  This  is  a  very  time  consuming 
procedure.  Direct  entry  into  lrpproc  is  deslreable  if  the 
associated  SSN's  will  ever  settle  down.  Must  run  buildassoc  first. 
Do  not  run  this  if  the  linkages  have  not  changed. 

/u/plan/db/prior ity  -  rebuilds  the  two  priority  ranking  files  priori  and 

prior2.  These  will  change  if  ssndef  or  mergessn  have  changed  The 
files  ssnpri  and  pseudolink  should  be  rebuilt  first.  This  must  be 
run  before  any  of  the  priority  reports. 


C.  RUNNING  THE  REPORTS 

All  reports  are  run  from  the  /u/plan/db  directory.  hove  there  using  the 
command  “ad  db".  The  *  symbol  used  here  means  to  insert  the  starting  page 
number  for  the  printed  report  into  the  command  as  indicated..  The  cmd  symbol 
means  to  insert  the  command  name  in  capital  letters  into  the  command  as 
indicated.  Use  "tail"  to  find  out  the  page  number  of  the  last  page  used. 

1.  Deficiency  Summary 

command.  defroll  # 

writes  to:  defroll. out 

comments:  Takes  about  1  hour.  Dbstatus  reports  end  of  file  errors 

which  should  be  -ignored. 

2.  Deficiency  Funding  Profile 

command:  defpro  # 

writes  to:  defpro2. out 
comments:  Takes  about  1  hour. 

3.  Commodity  Summary 

command:  acego  commod  # 

writes  to:  commod  out 

comments  Takes  about  20  minutes 
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4  Commodity  Funding  Profile 

command:  compro  # 

writes  to:  compro2. out 

comments:  Tales  about  30  mintites 

5  Commodity  Index 

command:  acego  comindei 

writes  to:  comindex.  out 

comments:  Takes  about  9  minutes.  Page  numbers  begin  with  A-l. 

6  Project  Summary 

command:  acego  peproj  # 

writes  to:  peproj. out 

comments:  Takes  about  20  minutes.  Includes  all  CSS  funded 

projects  in  cssprrdte. 

7.  Project  Index 

command:  acego  projindex 

writes  to:  pro j index .  out 

comments:  Takes  about  9  minutes.  Page  numbers  begin  with  B-l. 

8  System  Rollup  Summary 

command:  acego  sysrollnew  cmd  # 

writes  to:  sysrollnew  out 
comments:  Takes  about  10-19  minutes. 

9.  System  Funding  Summary 

command:  acego  sysdollars  cmd  # 

writes  to:  sysdollars  out 
comments.  Takes  about  10-19  minutes 
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cuMund:  acago  aytdolla  # 

writaa  to:  ayadolla. out 

coaatnti:  Includai  Projact  Managara. 

command:  acago  ayadollb  ft  ‘ 

writaa  to:  ayadollb. out 
commanta:  Includaa  Otbar  Coaaanda. 

10.  Syatam  Raaourcaa  Summary  (w/o  6.  3b/6.  4  Mor tpackagaa ) 

coaimand:  acago  ayaraa  cmd  * 

writaa  to:  ayaraa. out 

coauaanta:  Takaa  about  10  minutaa. 

command:  acago  ayareaa  * 

writaa  to:  ayaraaa. out 

coauaanta:  Includaa  Projact  Managara. 

command:  acago  ayaraab  M 

writaa  to:  ayaraab.  out 

commanta:  Includaa  Otbar  Commanda. 

11.  Baaa  Caaa/Typa  ClaaaiPiad  Straamlinad  Summary 

command:  acago  baaatc  cmd  # 

writaa  to:  baaatc. out 
commanta:  Takaa  about  5  minutaa. 

command:  acago  baaatca  # 

writaa  to:  baaatca  out 

commanta:  Includaa  Projact  Managara. 

command:  acago  baaatcb  • 

writaa  to:  baaatcb  out 

commanta  Includaa  nthar  Coouaanda 
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12. 

System  Index 

command : 
writes  to: 
comments: 

acego  sysindex 
sysindex. out 

Takes  about  9  minutes. 

Ordered  by  title. 

command : 
writes  to: 
comments: 

acego  sysindexl 
sysindexl. out 

Takes  about  9  minutes. 

Ordered  by  8SN. 

13. 

Morkpackage 

Append i x 

command: 
writes  to: 
comments : 

acego  wrkapdxa  cmd  • 
wr kapd xa.  out 

Takes  about  10  minutes. 

Mrites  on  pages  A-». 

command : 
writes  to: 
comments : 

acego  wrkapdxb  cmd  41 
wrkapdxb.  out 

Takes  about  10  minutes. 

Writes  on  pages  B-B. 

command : 
writes  to: 
comments : 

acego  wrkapdxc  # 
wrkapdxc. out 

Takes  about  10  minutes.  Mrltes  on  pages  B-tt. 
Includes  Project  Manager  wor kpac kages. 

command : 
writes  to: 
comments : 

acego  wrkapdxd  * 
wrkapdxd. out 

Takes  about  10  minutes. 
Includes  Other  Command 

Writes  on  pages  B-tt. 
wor kpackages. 

14. 

Morkpackage 

Index 

command : 
writes  to: 
comments : 

acego  wkpindex 
wkp index,  out 

Takes  about  9  minutes. 

Page  numbers  begin  with  1 
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15.  System  1  to  N  Priority  Report 

command:  attjo  prioress 

writes  to:  prioress,  out 
comments:  Takes  about  10  minutes. 

16.  Workpackage  1  to  N  Priority  Report 

command:  acego  priorwpall 

writes  to:  pr iorwpal 1. out 
comments:  Takes  about  10  minutes. 

17.  Priority  Rating  Schemes  Comparison  Report 

command:  pcomp 

writes  to:  pcomp.  out 

comments:  Takes  about  30  minutes. 


D  BUILDING  SHELLS 

As  stated  earlier  a  shell  is  a  preprograsueed  sequence  of  commands  that 
is  esecuted  as  a  single  cosimand.  The  sequence  can  be  simple  or  quite  complex. 
Any  operating  system  command  or  executable  program  can  be  included  in  the 
shell  and  there  are  a  few  extra  enhancements  which  can  only  be  done  within 
a  shell.  It  is  possible  that  a  single  command  could  execute  the  entire  MAMP. 

To  create  a  shell,  one  uses  the  standard  editor  (vi>  to  type  in  all  the 
coamands  just  as  if  they  were  being  entered  directly  from  the  keyboard. 

Inside  the  editor,  mistakes  can  be  corrected  and  the  sequence  revised  before 
attempting  to  run  it.  When  the  shell  is  complete  and  saved  as  a  file,  then 
the  file  can  be  executed  by  typing  in  its  name.  Note  that  the  file's 
execute  flag  must  be  turned  on  first  (chmod  +x  filename)  or  the  system  will 
reject  the  command. 

A  couple  of  UNIX  features  are  quite  useful  to  shells.  These  are  pipes  (I 
and  input/output  redirection  <<.  >.  and  »>.  The  reader  should  refer  to  the 
UNIX  text  to  become  familiar  with  these  concepts  Also  the  reader  should 
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feel  comfortable  browsing  through  the  UNIX  reference  manual  to  eiamine  the 
meaning  of  new  commands  and  parameters.  Although  UNIX  is  very  powerful,  it 
is  not  very  self  evident.  The  best  way  to  learn  new  features  is  to  see  what 
others  have  done  and  to  try  to  figure  out  why  it  worts  by  consulting  the 
manual. 

A  sample  shell  script  to  create  the  entire  system  volume. 

/u/plan/db/system.  is  included  below.  The  reports  here  are  contained  in  the 
/u/p lan/rpt.  Nei 1  directory  since  they  require  the  page  number  be  input  from 
the  standard  input  file  and  not  as  a  parameter  to  the  program. 

echo  “BEE  SYSTEM.  LOG  FOR  A  LOO  OF  THIS  PROCEDURE" 

e«pr  1  I  acego  . . /rpt. Nei 1/basetc  AVSCOM  >  system. log 
mv  basetc.  out  system,  avs 

tail  -lOc  system. avs  I  pageread. out  I  acego  . . /rpt. Neil/sysres  AVSCOM  »  system.log 
tail  +2  sysres. out  »  system,  avs 

tail  -10c  system. avs  I  pageread. out  I  acego  . . /rpt. Neil/sysdollars  AVSCOM  »  system.log 
tail  * 2  sysdol lars. out  »  system,  avs 

echo  "SYSTEM  REPORT  FOR  AVSCOM  COMPLETED  ( system. avs > " 

tail  -10c  system. avs  I  pageodd. out  I  acego  .. /rpt. Nei 1/basetc  BELVQIR  »  system.log 
mv  basetc. out  system. bel 

tall  -10c  system. bel  I  pageread. out  I  acego  . . /rpt. Ne i 1/sy sres  BELVOIR  »  system.log 
tail  +2  sysres. out  »  system. bel 

tail  -10c  system. bel  I  pageread. out  I  acego  .. /rpt. Neil/sysdollars  BELVOIR  »  system.log 
tail  *2  sysdol lars. out  »  system,  bel 

echo  "SYSTEM  REPORT  FOR  BELVOIR  COMPLETED  ( system,  bel ) " 

tail  -10c  system,  bel  I  pageodd. out  I  acego  .. /rpt. Nei 1/basetc  CECOM  »  system.log 
mv  basetc. out  system. cec 

tail  -10c  system,  cec  I  pageread. out  I  acego  .  . /rpt. Nei 1/sysres  CECOM  »  system.log 
tail  >2  sysres. out  »  system. cec 

tail  -10c  system,  cec  !  pageread.  out  I  acego  ..  /rpt. Nei 1 /sysdol lars  CECOM  »  system.log 
tail  +2  sysdol lars. out  >>  system. cec 

echo  "SYSTEM  REPORT  FOR  CECOM  COMPLETED  (system  cec >" 
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tail  -10c  itftta.  etc  I  pagaodd.  out  I  acago  .  .  /rp t.  Nai  1  /basatc  ERADCDH  »  agataai.log 
av  baaatc.  out  ayataa.  ara 

tail  -10c  ayataa. ara  I  pagaraad. out  I  acago  .. /rpt. Nai 1 /ay area  ERADCOH  »  ayataa.log 
tail  +2  ayaraa.  out  >>  ayataai.  ara 

tall  -10c  ayataa. ara  I  pagaraad. out  I  acago  .  .  /rpt. Nai 1/ayadol lara  ERAOCOM  »  ay a tarn,  lug 
tail  >2  ayadol lara. out  »  ayataa.  ara 

acho  "SYSTEM  REPORT  FOR  ERADCOH  COMPLETED  (ayataa  era)" 

tail  -lOc  ayataa. ara  i  pagaodd  out  I  acago  . . /rpt. Nai 1 /baaatc  NATICK  »  ayataa  log  j 

av  baaatc. out  ayataa. nat 

tail  -10c  ayataa. nat  I  pagaraad. out  I  acago  . . /rpt. Nai 1/ayaraa  NATICK  »  ayataa. log  1 

tail  +2  ayaraa. out  »  ayataa.  nat 

tail  -10c  ayataa.  nat  I  pagaraad.  out  I  acago  .. /rpt. Nai 1/ayadol lara  NATICK  »  ayataa.log 
tail  +2  ayadol lara. out  »  ayataa.  nat 

acho  "SYSTEM  REPORT  FOR  NATICK  COMPLETED  (ayataa  nat)" 

tail  -10c  ayataa.  nat  I  pagaodd. out  t  acago  .. /rp t.  No i 1 /baaatc  TACOM  »  ayataa.  log 
av  baaatc. out  ayataa.  tac 

tail  -10c  ayataa.  tac  I  pagaraad. out  I  acago  . . /rpt. Nail/ayaraa  TACOM  »  ayataa.log 
tail  >2  ayaraa. out  »  ayataa.  tac 

tail  -10c  ayataa. tac  I  pagaraad. out  I  acago  .  .  /rpt.  Nai 1 /ayadol lara  TACOM  »  ayatam  log 
tail  >2  ayadol lara. out  »  ayataa. tac 

acho  “SYSTEM  REPORT  FOR  TACOM  COMPLETED  (ayataa.  tac>“ 
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tail  -10c  ayatam. tac  I  pagaodd. out  1  acago  . . /rp t. Nai 1 /baaatca  »  ayataa.log 
av  baaatca. out  ayataa. paa 

tail  -10c  ayataa. paa  I  pagaraad. out  I  acago  .  .  /rpt. Nai 1/ayaraaa  »  ayataa.log 
tail  +2  ayaraaa. out  »  ayataa.  pas 

tail  -10c  ayataa. paa  I  pagaraad. out  I  acago  .  .  /rpt.  Nai 1/ayadol la  »  ayataa.log 
tail  + 2  ayadol la. out  »  ayataa  paa 

acho  “SYSTEM  REPORT  FOR  PMS  COMPLETED  ( ay atea.  paa > " 

tail  -10c  ayatam. paa  I  pagaodd. out  I  acago  .  . /rpt.  Nai 1/baaetcb  »  ayataa.log 
av  baaateb. out  ayatam. oth 

tail  -10c  ayatam. oth  I  pagaraad. out  I  acago  /rpt.  Nai l/ayaraab  »  ayataa.log 
tail  +2  ayareeb  out  »  ayataa. oth 

tail  -10c  ayatam. oth  I  pagaraad  out  I  acago  . . /rpt. Nei 1/ayadol lb  »  ayataa.log 
tail  +2  ayadollb  out  »  ayatam  oth 

echo  “SYSTEM  REPORT  FOR  OTHERS  COMPLETED  (ayatea  oth>“ 


\ 

5  1 

■-  --X. 

7: . 


t  ■  v. 
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acego  .  /rp t  Ne i 1 / tgs inde x 
■v  sgsindex.  out  system  i  d « 
accgo  .  .  /rp t  Ne i 1/sgsinde *  1 
mv  sgsindexl.  out  sgstem.  ldxl 

echo  “SYSTEM  INDEXES  COMPLETED  <  sgstem.  i'd «  and  sgstem  id«l> 


E  PRINTING  AND  SAVING  THE  REPORTS 

Reports  are  printed  on  the  lineprinter  using  the  lprint  command  or  the 
lpr  line  printer  spooler  command.  Lprint  can  onlg  print  one  file  at  a  time, 
and  multiple  print  jobs  will  confuse  the  printer.  Lpr  will  queue  the  jobs 
and  wait  for  the  printer  to  become  available.  Lpr  also  prints  a  banner  and 
several  page  ejects  with  each  job.  so  it  will  be  unacceptable  if  the  print 
jobs  must  run  on  consecutive  sheets  of  paper.  Also  note  that  for  some  reason 
informix  inserts  one  extra  line  at  the  end  of  each  report.  If  different  files 
need  to  be  printed  on  consecutive  pages  then  some  manual  control  over  the 
printer  platen  must  be  performed  to  insure  that  the  reports  come  out  centered 
on  the  page. 

Several  of  the  reports  use  the  command  name  as  a  parameter  and  are  run 
several  times  in  the  course  of  building  the  entire  set  of  reports.  Each  time 
a  report  is  run  it  will  write  over  the  previous  file  with  the  same  name. 

Thus  if  the  previous  report  has  not  get  been  printed,  it  must  be  renamed  so 
that  it  will  not  be  lost.  Use  the  move  command  (mvl  to  rename  the  file. 

It  is  also  good  practice  to  save  the  report  files  for  a  while.  For 
example,  the  printer  mag  mangle  the  camera  readg  masters.  A  good  idea  is 
to  create  a  separate  directorg  for  everg  major  publication  date  and  store 
the  prepared  reports  in  that  directorg.  The  report  programs  might  also  be 
copied  to  that  directorg  to  preserve  their  current  state.  Then  mate  a  backup 
tape  of  that  directorg  for  archival  purposes. 


THE  BDM  CORPORATION 


CHAPTER  II 

DICTIONARY  AND  CROSS  REFERENCE  WITH  CSS  HAHP  REPORTS  FOR  DATA  BASE  HAT_PLAN 

This  chapter  presents  a  detailed  description  of  the  *at_p1an  data  base  file  and  the  data  contained 
In  those  files.  Further,  It  cross-references  that  data  to  the  printed  reports  which  are  affected  If 
the  data  is  changed.  For  example,  an  asterisk  In  Coluan  F  Indicates  that  the  data  elewent  appears  In 
the  project  sumaary,  or  that  ft  controls  which  data  wight  be  Included  In  the  project  suawary.  The 
text  of  this  chapter  Is  on-line  at  the  file  /u/plan/dociaaent/schewa.  Corrections  or  revisions  to 
this  text  should  be  posted  to  that  file. 
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DICTIONARY  AND  CROSS  REFERENCE  WITH  CSS  MAMP  REPORTS  FOR  DATABASE  MAT  PLAN 


CSS  MAMP  REPORTS: 

(All  reports  are  in  the  directory  /u/p'lan/rpt.  Linda.  Some  reports  with  the 
same  name  are  in  /u/p lan/rpt. Net  1  —  these  are  variants  where  the  page  number 
Is  read  from  standard  input  instead  of  as  a  parameter.  The  reports  shown 
here  are  only  those  which  print  formal  reports.  They  are  supported  by  a 
collection  of  other  programs  which  maintain  the  data  base  and  the 
temporary  construction  files  as  described  later.  > 


DEFICIENCY  REPORTS: 

deficiency  profiles 
deficiency  rollups 


(defpro2> 

(defroll) 


COMMODITY  REPORTS: 

commodity  summary 
commodity  profiles 
commodity  index 


(commod) 
<compro2> 
(comindex  > 


PROJECT  REPORTS. 

project  summary 
project  index 


SYSTEM  REPORTS: 

sysrem  rdllup 
system  funding  rpt 
system  resource  rpt 
system  basecase  rpt 
system  index 


(pepro j  > 
(pro jindex ) 


( sysrol lnew) 

(sysdollars. sysdolla. sysdollb) 
(sysres. sysrese. sysresb) 
(basetc. basetca. basetcb) 
<sysindex>  sysindexl) 


r*  v 

-i  ■■  i 


2i  s  k  in 
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WORKPACKAGE  REPORTS: 

uorkpackaga  appi  (urkapdxa. urkapdib. urkapdic. urkapdxd ) 

uorkpackaga  indaa  (ukpindai) 


PRIORITY  REPORTS: 

ayataa  priority  (prioraya. pr iorcaa. pr icaacad > 

uorkpackaga  priority  ( pr iorup. pr iorupal 1. pr i orupcad ) 

priority  coapariaon  Ipcoapi 


THE  BDM  CORPORATION 


MAT_PLAN  DATA  BASE  FILES  AND  DESCRIPTIONS: 


FILE  assoc 

This  fils  rslatss  primary  ssns  to  an  associatsd  ssn.  It  is  automatically 
regenerated  by  the  shell  /u/p lan/db/bui ldassoc.  No  data  should  be  entered 
into  it  directly  -  enter  data  into  rollup  instead.  This  file  is  not  used 
directly  in  a  printed  report  but  instead  is  used  in  the  program  assroll 
to  compute  the  total  funding  for  sens  which  are  nsl's  to  be  inserted  into 
lrpproc  by  the  shell  /u/p lan/db/assocrol lup. 

FIELDS  TYPES  ABCDEFOHJKLMNPGRS 

assoc_ssn_no  char  6 

assoc_ssnl  char  6 


FILE  comprol 

This  is  a  temporary  file  used  in  the  creation  of  the  commodity  profile 
report.  It  contains  RDTE  funding  totals  for  each  commodity  line 
represented  by  systems  in  csscontrol.  Data  should  not  be  entered  into  it 
directly.  It  is  automatical ly  regenerated  by  eiecuting  /u/plan/db/compro. 


FIELDS 


TYPES 


ABCDEFOHJKLMNPGRS 


comprol_commodity 
comprol_cmd 
c_f83  tb 

(to  c_f 92_tb ) 
c_u85_tb 

(to  c_u92  tb) 
c_f83_dev 

(to  c_f92_dev> 
c_u83_dev 

(to  c  u92  dev) 


char  10 
char  12 
long 

long 

long 

long 
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FILE  csscontrol 


r 

t 


*  r 
I  [ 


Thii  i«  the  igitd  control  file.  Only  uni  antarad  into  this  file  Mill 
printed  in  MAMP  report*.  Tha  title  1*  currently  unused.  The  types  are: 
O-bate  case.  1-type  classifieds  2-davdlopnantali  3-pips.  4-tech  deiso. 
5-broad  base  tech  area.  6-raqt  above  corps. 


be 


FIELDS 

csscontral_ssn_.no 
csscontrol_type 
csscantrol  title 


TYPES 

char  6 
integer 
char  60 


ABCDEFGHJKLMNPQRS 


FILE  cssprrdte 

This  is  the  project  control  file.  Only  projects  entered  into  this  file 
be  included  in  the  project  reports. 


FIELDS 

TYPES 

A  B  C  D  E  F 

0 

H  J  K  L  M  N 

P  Q  R 

c*sprrdte_cied 

char  12 

• 

• 

•  • 

•  • 

cssprrdte  _pe 

char  9 

• 

* 

*  * 

#  * 

cssprrdte  _proj_no 

char  4 

* 

* 

*  # 

•  « 

c*sprrdte_pro j_ind« 

composite 

* 

* 

*  * 

•  « 

c  ssprrd te_cmd. 
cs*prrdta_pe. 
cssprrdte _pro j_no 
cssprrdte_proj_title 
cssprrdte_«iss_area 

char  60 
char  6 

« 

« 

*  * 

« 

Mill 

8 
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FILE  defcontrol 


This  is  the  deficiency  control  file.  Only  deficiencies  entered  into  this 
file  will  be  printed  in  the  deficiency  report!.  Type*  are:  1-Primary. 
2-Releted.  3-Non  Materiel.  4-Health  Service*. 


FIELDS 


TYPES 


ABCDEFQHJKLMNPQRS 


def control_def ic 
defcontrol_type 


integer  *  * 

integer  e  # 


FILE  defdesc 


This  contains  the  teit  description  of  the  deficiency.  It  is  in  lO  contiguous 
records  of  60  characters  each,  printed  120  characters  to  the  line.  It  may 
be  a  classified  description  beginnings  with  ”(B>"  or  "( C) 

FIELDS  TYPES  ABCDEFGHJKLMNPQRS 


defde*c_def ic  integer  * 

defdesc_te»tO  char  60  • 

(to  def desc_te« tf ) 


18 


1 

I 


I 

i 


.1 

I 

] 

I 


1 

I 

] 

1 

1 


1 


1 


l 

I 

I 

I 

( 
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FILE  defprol 


This  is  a  temporary  file  used  in  the  creation  of  the  deficiency  profile 
report.  It  contains  ROTE  funding  tot41*  for  each  deficiency  represented 
by  deficiencies  in  defcontrol.  Data  should  not  be  entered  into  it 
directly.  It  is  automatically  regenerated  by  executing  /u/plan/db/defpro. 


FIELDS 

TYPES 

defprol  defic 

integer 

fea_tb 

long 

(to  f92_tb> 

u8S_tb 

long 

(to  u92_tb> 

fB3_dev 

long 

(to  f92_dev> 

u89_dev 

long 

(to  u92_dev) 

A8CDEFCHJKLMNP8R8 

* 

* 

* 
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FILE  flag 

This  file  contains  information  on  flags  and  dollar  amounts  for  uior kpac kages. 
It  is  derived  from  the  budget  data  base  directly.  The  user  should  not  have 
to  enter  data  in  here  except  to  make  spot  corrections.  Six  flags  are  alloued 
with  each  being  given  a  five  character  name  and  eight  dollar  figures  for  the 
uiorkpackage  funding  data. 

FIELDS  TYPES  ABCDEFGHJKLMNPQRS 


1  [ 


y  i 


f  lag_cmd 
f lag_cat 
f  lag  jiikpkg 
f lag_ukpkg_indx 
f lag_cmd. 
f lag_cat. 
f  lag  uikp  kg 


char  12 
char  3 
char  7 
composite 


flag l_n 

(to  flag6_n) 

char  3 

* 

f lagl_0 

(to  flagl_7) 

long 

* 

f lag2_0 

(to  flagl_7) 

long 

*  1 

f lag3_0 

(to  f lag 1_7 ) 

long 

* 

1 

f 1 ag4  O 

(to  f lag 1_7) 

long 

*  i 

f lag3_0 

(to  f lag 1_7> 

long 

* 

f lag6_0 

(to  f lag  1 _7 ) 

long 

* 

20 
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FILE  Irpproc 

This  fils  contains  tha  system  procurement  and  related  data  froei  the  LLRDAP. 
The  title.  proc_funded.  and  aiss_na*e  .data  are  ieiportant.  New  records  should 
be  added  when  systems  are  added. 

FIELDS  TYPES  ABCDEFOHJKLMNPQR8 


lr pproc_ssn_no  char  6  ,  a  a  a  a  *  •••«••  •  a 

lrpproc_ssn_ title  char  30  *e*  •  *  a  a  a  a  a  •  * 

lrpproc_f ydp_proc_l  float 

(to  lrpproc_fqdp_proc_16) 
lrpproc_fqdp_qtq_l  long 

(to  lrpproc_fydp_qtg_16> 

Irpproc _proc_funded_l  float  a  a  #  *  a  a  a 

(to  lrpproc_proc_funded_16> 
lrpproc_qtg_funded_l  long 

(to  lrpprac_qty_funded_16) 
lrpproc_proc_pr i_l  long 

(to  lrpproc_proc_pr i_l6> 

lrpproc_proc_unf unded_l  float  a  a  a  a  a 

(to  lrpproc_proc_unfunded_16) 
lrpproc_qty_unfunded_l  long 

(to  lrpproc_qty_unfunded_16) 
lrpproc_pkg_l  long 

(to  Irpproc _pkg_4) 


lr ppr oc_dev_code 

char  3 

« 

«  • 

Irpproc _user_c ode 

char  3 

* 

•  * 

Irpproc _miss_area 

char  6 

Irpproc  _e»iss_name 

char  6 

« 

* 

*  #  * 

•  * 

• 

* 

¥ 
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*  ir 


FILE  mergessn 

This  file  relates  a  workpackage  to  up  to  10  ssns.  Multiple  records  are  used 
for  more  ssns.  Data  should  be  entered  .into  here.  The  shell 
/u/plan/db/buildps  automatical ly  transfers  this  data  to  pseudolink.  The 
shell  /u/p lan/db/addmergessn  will  recreate  mergessn  from  a  complete 
pseudolink  file,  will  remove  duplicate  entries,  and  will  resort  the  ssns. 


FIELDS 

TYPES 

A 

B  C  D  E  F 

0  H 

J 

K  L  h  N  P 

Q  R 

mergessn_cmd 

char  12 

* 

*  *  * 

* 

« 

#  » 

• 

mergessn_cat 

char  3 

* 

*  *  * 

* 

* 

*  * 

* 

mer g essn_wk p k g 

char  7 

* 

«  *  * 

* 

* 

*  * 

« 

mergessn_wkpkg_ind* 

mergessn_cmd, 

mergessn_cati 

margessn_wkpkg 

composite 

* 

*  *  * 

* 

* 

*  * 

« 

mergessn_l 

char  6 

« 

«  *  * 

* 

» 

#  * 

* 

(to  mergessn_10) 


1 

I 

1 

] 

:i 

] 


FILE  mis_area 

This  file  is  unknown.  It  is  a  relic  from  the  original  mat_plan  that  I 
haven't  explored,  but  it  looked  interesting  so  Z  didn't  delete  it.  It 
looks  like  it  contains  the  mission  area  for  each  deficiency. 

FIELDS  TYPES  ABCDEFOHJKLMNPORS 


miss_def ic 
mi ss_area_name 
miss_area_no 
mi ss_area_da 
mi ss _area_type 


integer 
char  9 
integer 
char  4 
char  4 


] 

I 

< 


22 


I 


I 

f 
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Thi*  i»  a  temporary  file  used  in  the  priority  methodology  comparison  reports. 
It  it  automatical ly  regenerated  by  the  shell  /u/p lan/db/pcomp.  No  data  is 
antered  in  here  otherwise.  It  contains  the  scores  far  three  competing 
rating  schemes  for  each  sen. 

FIELDS  TYPES  ABCDEF0MJKLMNP0R8 


pcampO_stn_.no  char  6 

pcampO_ndaf  intager 

pcompO_scoreO  float 

pcampO_scarel  float 

pcompO_scora2  float 


a 

a 

• 


FILE  pcomp 1 


This  is  a  temporary  file  used  in  the  priority  methodology  comparison  reports. 
It  is  automatically  regenerated  by  the  shell  /u/plan/db/pcomp.  No  data  is 
entered  in  hare  otherwise.  It  contains  the  score  for  scheme  I  and  the 
rating  sequence  number  that  score  would  earn. 


FIELDS 


TYPES 


ABCDEFOHJKLMNPQRS 


wy 


V';  Jkw 


N 
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FILE  pcomp2 


This  is  a  temporary  file  used  in  the  priority  methodology  comparison  reports. 
It  is  automatical ly  regenerated  by  the  shell  /u/plan/db/pcomp.  No  data  is 
entered  in  here  otherwise.  It  contains  the  score  for  scheme  2  and  the 
rating  sequence  number  that  score  would  earn. 


FIELDS 


ABCDEFOHJKLMNPQRS 


pcomp2_ssn_.no 

pcomp2_score2 

pcomp2_seq_no 


char  6 

float 

integer 


FILE  priori 

This  is  a  temporary  file  used  in  the  CS8  priority  methodology  ranting.  It  is 
automatical ly  regenerated  by  the  shell  /u/plan/db/pr ior ity.  No  data  is 
entered  in  here  otherwise.  It  contains  the  score  and  number  of  deficiencies 
with  each  letter  rating  for  each  ssn  in  csscontrol. 


FIELDS 


TYPES 


ABCDEFOHJKLMNPQRB 


prior l_ssn_no 
priorl_ndef 
pr ior I_na 
priorl_nb 
prior l_nc 
prior l_nd 
prior l_ne 
priorl_nx 
prior l_score 


char  6 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 


^  f 


kw  -  v  • 


GcWjvV  • 


V  ‘  !*  * 


■V*. 
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FILE  priors 


This  is  a  temporary  file  used  in  th*  CSS  priority  methodology  ranking.  It  is 
automatically  raganeratad  bg  tba  shall  /u/plan/db/prlority.  No  data  is 
entarad  in  hara  otharwisa.  It  contains  tha  scora  and  nuaibar  of  systems, 
high  system,  and  low  system  rating  for  each  workpackage  funded  by  projects 
in  cssprrdta.  System  ratings  ara  derived  from  tha  file  priori. 


i  . 

FIELDS 

TYPES 

ABCDEFGHJKLMNPQR8 

'  l 

prior2_cmd 

char  12 

« 

pr lor2_cat 

char  3 

* 

pr ior2_wkpkg 

char  7 

* 

r  l 

pr ior2_wkpkg_ind  < 

composite 

♦ 

prior2_cmd> 

*  r 

pr ior2_cat. 

i  *  j 

prior2_ukpkg 

1 »  i 

pr ior2_nsys 

integer 

* 

pr ior2_hisys 

integer 

* 

p 

pr ior2_losy * 

integer 

* 

* 

pr ior2_scora 

integer 

» 

.  f 
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PILE  pro  j 

This  is  the  project  funding  fils.  It  is  dtrivtd  directly  from  the  budget 
data  base  so  no  data  need  be  entered  in  here  directly. 


FIELDS 

TYPES 

A  B  C  D  E  F 

OHJKLhNP 

pro j_cmd 

char  12 

* 

•  * 

pro j_pe 

char  S 

* 

•  * 

pro j_no 

char  4 

* 

*  « 

proj_ind* 

pro j_cmd, 
pro j_pe. 
proj_no 

composite 

* 

*  « 

proj_title 

proj_guid_0 

(to  proj_guid_7) 

char  60 
long 

* 

*  # 

pro  J_f und_0 

(to  proj_fund_7) 

long 

* 

pro j_unf und_0 

(to  pro j_unf und_7) 

long 

« 

PILE  pseudolink 

This  file  relates  a  single  workpackage  to  a  single  ssn.  It  is  automatical ly 
regenerated  from  the  file  mergessn  by  the  shell  /u/p lan/db/bui ldps  No  data 
should  bo  entered  in  here  directly. 


FIELDS 

TYPES 

ABC 

D  E  F  0  H 

J 

K  L  M  N  P  Q  R 

pseudol ink_cmd 

char  1^ 

*  * 

*  *  * 

« 

*  #  # 

pseudol ink_cat 

char  3 

•  * 

*  «  • 

« 

«  •  • 

pseudol  ink _<ukpkg 

char  7 

*  • 

*  *  * 

• 

#  *  * 

pseudol ink _wkp  kg_ind i 

composite 

*  # 

#  #  # 

« 

«  •  * 

pseudol ink_cmd. 

pseudol ink_cet> 

pseudol ink _mkp  kg 

pseudol  ink_ssn_.no 

char  6 

#  # 

«  •  « 

• 

«  «  * 

26 
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FILE  rollup 


This  is  the  system  rollup  file,  showing  which  sens  ere  subsidiary  to  a 
primary  ssn.  The  shell  /u/p lan/bul ldassoc  will  automatical ly  turn  this 
data  into  the  file  assoc.  Each  rollup  ssn  can  have  up  to  lO  associated 
ssns  on  each  record.  Use  multiple  records  if  there  are  more  than  10. 
This  file  can  be  rebuilt  from  a  complete  file  assoc  using  the  shell 
/u/plan/db/addrollup. 


FIELDS 

rol lup_ssn_no 
rol lup_ssnl 

(to  rollup_ssnlO) 


TYPES  ABODE 

char  6 
char  & 


FOHJKLMNPQRB 

e  • 
e  « 


FILE  ssndef 


This  fils  relates  systems  to  deficiencies.  Up  to  10  deficiencies  may  be 
described  for  each  system  with  its  contribution  value.  Use  multiple  records 
if  there  are  more  than  10.  The  deficiency  source  is  currently  unused  but  a 
"T"  is  entered  for  TRAOOC.  This  data  is  transferred  to  the  file  senpri  by 
the  shell  /u/p lan/db/bui Idssnpr 1 .  The  shell  /u/p lan/db/addssndef  will 
rebuild  this  fils  from  a  complete  ssnprl.  eliminating  duplicates  and  sorting 
the  deficiencies. 


FIELDS 


TYPES  ABCDEFQHJKLMNPQRS 


ssndef_ssn_no 
ssndef _def_source 
ssndef_def_l 

(to  ssndef_def__10) 
ssndef _con_l 

(to  ssndef_con_10> 


char  6  e  *  # 

char  1 

integer  *  *  * 

char  1  e  * 


*  a  «  e  *  » 

*  *  •  *  *  # 

«  •  •  #  a  e 
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FILE  igiprot 


This  is  a  temporary  file  used  in  the  creation  of  the  deficiency  rollup 
report.  It  contains  RDTE  funding  totals  for  each  system  Included  in 
csscontrol.  Oata  should  not  he  entered  into  it  directly.  It  is 
automatically  regenerated  by  executing  the  shell  /u/plan/db/defroll. 


FIELDS 

TVPE8 

syspral_ssn  no 

char  6 

s_fS3_tb 

long 

(to  s_f92_tb) 

s_uBS_tb 

long 

(to  s_u92_tb> 

s_fB3_dev 

long 

(to  s_f92_dev> 

s_uBS_dev 

long 

<to  s_u92  dev) 


ABCDEF&HJHLMNPQRS 

# 

* 

e 

e 

e 
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] 

PILE  talk 

This  is  th •  task  funding  fils.  It  is  extracted  from  the  budgat  data  base.  ^ 

No  data  needs  to  be  entered  into  here  except  for  spot  corrections. 


FIELDS 

task_cmd 
task_pe 
task  jiro  j 
task_pro j_ind  « 
task_cmd> 
task_pe> 
task_proj 
task_.no 
task_na_ind  x 
task_cmd< 
task  _pe. 
task  _proji 
task_.no 
task_t i tie 
task_guid_0 

(to  task_guid_7> 
task_f und_0 

(to  task_fund_7> 
task_unfund_0 

(to  task  unfund_7> 


TYPES  A  B  C  D 

char  12 
char  3  • 
char  4 
composite 


char  9 
composite 


char  60 
long 

long 

1  ong 


FOHJKLHNPQRS 

e 

* 

e 

e 

e 

e 

e 

e 
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FILE  ukdesc 


This  is  the  uorkpac kage  description  file.  It  is  attracted  from  th«  budget 
date  base.  No  data  needs  to  be  entered  into  here. 


FIELDS 


ABCDEFGHJKLMNPQRS 


ukdesc_cmd 
ukdasc_cat 
wkdesc_uikpkg 
ukdesc _ukpkg_inds 
ukdesc_cmd. 
ukdesc_cat< 
ukdesc_ukpkg 
uikdesc_te>  to 

(to  ukdesc _te«t9> 


char  12 
char  3 
char  7 
composite 


char  60 


FILE  ukpkg 

This  is  the  workpackage  funding  data  file.  It  is  estracted  from  the  budget 
data  base.  No  data  needs  to  be  entered  into  here  directly. 

FIELDS  TVPE8  ABCDEFOHJKLMNPQRB 

wkpkg_cmd  char  12  eeeeee*  e  * 

ukpkg_cat  char  3  eeeeee#  e  e 

tt,l,pl,9_*ubcat  char  4  *•  eee  e  e 

ukpkg_pe  char  5  e  e  e  e 

uikpkg_proj  char  4  e  e  e  e 

u,l,P,,9_task  char  9  e  e  e  e 

ukpkg_no  char  7  eeeeee#  e  e 

iiikpko  no  lnd»  comooslte  eeeeee#  e  e 


FIELDS 

TVPE8 

wkpkg_cmd 

char  12 

ukpkg_cat 

char  3 

ul,pl,9_*ubcat 

char  4 

ukpkg_pe 

char  9 

uikpkg_pro  j 

char  4 

u/kpkg_task 

char  9 

ukpkg_no 

char  7 

“l,‘pkg_no_lnd« 

composite 

uikpkg_cmdi 

uikp  kg_cat. 

uikpkg_no 

ukpkg_proj_inds 

compos i to 

uikpkg_cmd. 

u*  ►  p  k  a  _p  •  • 

ukpkg_pro j 

r  ^ _ 


If 


V-- 


f 


THE  BOM  CORPORATION 


wkpkg_task_indx 

composite 

w k p k g_c md . 
wkpkgje, 
wkpl<9_proj. 
ukp  kg_task 

ukpkg_pr 1 

integer 

* 

<»kpkg_dcpri 

integer 

ukpkg_lab 

char  12 

* 

uik  p  k  g_t  1 1 1  e 

char  60 

* 

* 

* 

uk pkg_budget_yr 

integer 

ukpkg_guld_yrO 

long 

(to  ukpkg_guid_yr7) 
wkpkg_fund_yrO 

long 

*  *  *  *  *  *  * 

• 

* 

(to  ukpkg_fund_yr7) 
ukp k g_unf und_yrO 

long 

*  *  *  *  *  *  * 

* 

(to  ukpkg_unfund_yr7> 
ukpkg_proj_»upp 

char  4 

u,<P,l8_*i-*n»_date 

char  4 

* 

FILE  uks86 


Thao  are  th •  1986  uorkpackage  statements  attracted  from  the  budget  data 
base.  No  data  need*  to  be  entered  Into  thie  file  directly. 

FIELDS  TYPES  ABCDEFOHJKLhNPORS 


uiksB6_cmd 

uiks86_cat 

uiksB6_ukpkg 

uks86_ukpkg_indx 

tuks86_cmd> 

wks86_cat> 

uks86_wkpkg 

uksB6_textO 

(to  wksB6_text9> 


char  12 
char  3 
char  7 
compoe i te 


char  60 


* 

* 

a 
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CHAPTER  III 
CSS  HAKP  REPORTS 

This  chapter  presents  the  program  text  of  each  of  the  CSS  MAHP  Reports.  They  are  Included 
formally  In  this  report  to  document  their  current  status.  It  should  be  expected  that  they  will 
continue  to  evolve  as  management  Information  needs  change. 
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A.  DEFICIENCY  REPORTS 


1 .  Deficiency  Profile  Report  Generator  -  Part  1 
/u/plan/rpt.LInda/defprol 

This  report  accumulates  the  RDTE  funding  for  a  range  of  deficiencies.  For  each  deficiency, 
the  tech  base  and  development  funded  and  unfunded  amounts  are  computed  for  each  year.  These  amounts 
are  written  in  ASCII  file  format  for  loading  into  the  data  base  file  defprol.  This  program  is  called 
automatically  by  the  shell  /u/plan/db/defpro. 
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t  Deficiency  rrofllt  report  Generator  part  1  .» 

database  e»at_plan  end 

define 


paramC 1 3 

lower  1  i  m 

type 

integer 

param(21 

upper  1  in 

type 

integer 

variable 

vb 

type 

character  length  1 

variable 

f 85  tb 

type 

long 

variable 

uBS_tb 

type 

long 

variable 

f 85_dev 

type 

long 

variable 

u8S_dev 

type 

long 

variable 

f 86  tb 

type 

long 

variable 

u86  tb 

type 

long 

variable 

♦B6_dev 

type 

long 

variable 

u86_dev 

type 

long 

variable 

f 87  tb 

type 

long 

var iable 

UB7  tb 

type 

long 

variable 

f87_dev 

type 

long 

variable 

uB7_dev 

type 

long 

variable 

f8B_tb 

type 

long 

variable 

u8B_tb 

type 

long 

variable 

f88_dev 

type 

long 

variable 

uB8_dev 

type 

long 

variable 

fB9_tb 

type 

long 

variable 

u89_tb 

type 

long 

variab le 

f B9_d  ev 

type 

long 

var iab le 

u89_dev 

type 

1  ong 
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variable 

f 90_tb 

type 

long 

variable 

u90_tb 

type 

long 

variable 

f90_dev 

type 

long 

variable 

u90_dev 

type 

long 

variable 

f 91_tb 

type 

1  ong 

variable 

u91  tb 

type 

long 

var iab le 

f91_dev 

type 

long 

variable 

u91_dev 

type 

long 

variable 

f92_tb 

type 

long 

variable 

u92_tb 

type 

long 

variable 

f 92_dev 

type 

long 

variable 

u92_dev 

type 

long 

end 

output 

top  margin 

O 

left  margin 

O 

page  length 

32000 

report  to  " 

defprol. out" 

end 

read  into  a 

decontrol 

uiher •  defcontrol_def ic  >m  louerlim  and  defcontrol_def ic 
and 

raad  into  b 
a 

c*»control_»*n_no 

joining  a.  defcontrol_def ic  *  *»npri_defic 
and  senpri  nn_no  «  c»»control_»»n_no 


O  upperllm 
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read  into  c 
b 

“kp kg_no_ind i  wkpkg_aubcat 

<okpkg_fund_yrO  wkp kg_fund_yr 1  wkp kg_f und_yr2  wkp kg_f und_yr3 
wkpkg_fund_yr4  wkpkg_f und_yr9  wkpkg_fund_yrb  wkpkg_f und_yr7 
wkp kg_unf und_yrO  wkpkg_unfund_yrl  wkpkg_unf und_yr2  wkpkg_unfund_yr3 
wkpkg_unfund_yr4  wkpkg_unfund_yr3  wkpkg_unfund_yr6  wkpkg_unfund_yr7 
joining  b.  caecontrol_san_.no  “  psaudol  ink_san_no 
and  paeudol ink_wkpkg_ind*  «  wkp kg_no_ind > 

end 

sort  by  def control_def ic  wkpkg_cmd  wkpkg_cat  ukpkg__no  end 
format 

before  group  of  defcontrol_def ic 
let  f89  tb  »  O 
let  u8S_tb  -  O 
let  f BS_dev  -  O 
let  u8S_dev  =  O 
let  f8A_tb  ■  O 
let  u86__tb  »  O 
let  f86_dev  «  O 
let  u86_dev  =  O 
let  f87_tb  -  O 
let  u87_tb  -  O 
let  f87_dev  “  0 
let  u87_dev  »  O 
let  f88_tb  “  O 
let  u88_tb  ■  O 
let  f B8_dev  »  0 
let  u88_dov  «  0 
let  f89_tb  -  0 
let  u89_tb  =  0 
let  f89_dev  =  0 
let  u89_dev  »»  0 
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lat  f90_tb  =  0 
let  u90_tb  =  O 
lat  f90_dev  »  O 
let  u90_d#v  «  O 
lat  f91_tb  =  O 
let  u91_tb  »  O 
let  f91_dev  »  0 
lat  u91_dev  “  O 
let  f92_tb  »  0 
let  u93_tb  =  O 
let  f92_dav  -  O 
let  u92_dev  ■  0 


i 

f 


r- 


'  r 


p 


before  group  of  aikpkg_na 

if  <ekpkg_*ubcat"“6.  1"  or  eikpkg_»ubeat""6.  2 
let  fBS_tb  »  fB3_tb  +  ukpkg_fund_grO 
let  fB6_tb  ■  f 86_tb  ♦  <ekpkg_fund  grl 
let  fB7_tb  »  f B7_tb  +  uikpkg_fund_yr2 
let  f88_tb  »  f 88_tb  +  ukpkg_fund_gr3 
let  f89_tb  *»  f89_tb  +  <ekpkg_fund_yr4 
let  f90_tb  -  f90_tb  +  <ekpkg_fund_yr3 
let  f91_tb  *  f9l_tb  +  wkp kg_f und_gr6 
let  f92_tb  “  f92_tb  +  wkpkg_fund_gr7 
let  o8S_tb  ■»  u83_tb  ♦  ukpkg_unfund_grO 
let  uB6_tb  »  uB6_tb  +  wkpkg_unfund_gr 1 
let  u87_tb  »  u87_tb  +  wkpkg_unfund_gr2 
let  u88_tb  *  u88_tb  +  ukpkg_unfund_gr3 
let  u89_tb  «=  u89_tb  +  wkpkg_unfund_gr4 
let  u90_tb  »  u90_tb  +  ukp k g_unf und_gr 3 
let  u91_tb  *  u91_tb  +  wkpkg_unfund_gr6 
let  u92_tb  “  u92_tb  +  ukpkg_unf und_gr7 
end 


or  wkpkg_«ubc«t»,>6.  3A”  then  begin 

> 

i 


i 

i 
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else 

if  ukpkg. 

_subcat““6. 

let 

f  89 

_dev 

= 

#B3_dev 

let 

#86 

_dev 

as 

#86  dev 

let 

f87 

_dev 

at 

#87_dev 

let 

f  88 

.dev 

as 

#88  dev 

let 

f  89 

.dev 

m 

#89  dev 

let 

f  90 

_dev 

am 

#90_dev 

let 

f  91 

_dev 

as 

#91_dev 

let 

#92 

_dev 

as 

f92_dev 

let 

u89 

_dev 

as 

uB9_dev 

let 

uB6 

dev 

as 

u86 _dev 

let 

u87 

.dev 

s 

u87_dev 

let 

u88_dev 

as 

u88_d  ev 

let 

uB9_ 

_dev 

as 

u89_dev 

let 

u90_dev 

as 

u90_dev 

let 

u9l_dev 

as 

u91_dev 

let 

u92_dev 

as 

u92_dev 

end 


3B“  or  ukpfcg_«ubc«t-“6.  4“ 
+  wkp kg_fund_y rO 

♦  itfkpkg_fund_yrl 
+  ukpkg_f und_gr2 

♦  ukpkg_#und_yr3 
+  wkpkg_#und_yr4 
+  wkpkg_f und_yr9 

wkp kg_f und_yr6 
+  wkpkg_#und_yr7 
+  wkpkg_onfund_yrO 

♦  wkpkg_unfund_yr 1 
+  iekp  k  g_unf  und_yr2 

♦  n»kpkg_on#und_yr3 
+  wkpkg_unfund_yr4 

♦  wkpkg_un#und_yr9 
+  wkpkg_unfund_yr6 

♦  wkpkg_unfund_yr7 


or  wkpkg_subcat»,,6.  7" 


then  bogin 


after  group  o#  defcontrol_def ic 
lot  vb«"l“ 

print  defcontrol_de#ic.  vbi 

print  #89_tb.  vb.  #B6_tb.  vb.  #87_tb.  vb.  #88_tb.  vb, 
#B9_tb.  vb.  #90_tb.  vb.  #91_tb.  vb.  #92_tb,  vbi 
print  uB9_tb.  vb.  u86_tb.  vb.  u87_tb.  vb.  u88_tb.  vb. 

u89_tb.  vb.  u90_tb.  vb.  u91_tb.  vb.  u92_tb.  vb) 
print  #89_dev,  vb.  #B6_dev.  vb.  #B7_dov.  vb.  #8B_dev.  vb. 

fB9_dov.  vb.  #90_dev.  vb.  #91_dev.  vb.  f92_dov.  vbi 
print  u89_dev.  vb.  u86_dev.  vb.  uB7_dov.  vb.  u88_dev.  vb. 
u89_d#v.  vb.  u90_dov.  vb.  u91_dov.  vb.  u92  dov.  vb 


tnd 
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2.  Deficiency  Profile  Report  Generator  -  Part  2 
/u/plan/rpt .Linda/def pro2 


This  report  generates  the  deficiency  funding  profile  for  all  deficiencies  in  defcontrol. 
It  accumulates  the  procurement  funding  amounts  for  the  appropriate  systems  and  combines  that  with  the 
precomputed  ROTE  funding  data  stored  in  defprol.  This  program  is  called  automatically  by  the  shell 
/u/ pi an/db/def pro . 


r 

I 
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<  Dtf Icltncg  Profile  Report  Generator  > 

database  eatjilan  end 

define 


para*f 1 3 

pno 

type 

integer 

var lab la 

counter 

type 

Integer 

var lab  la 

tf 

type 

flaet 

variablt 

i 

type 

integer 

variab 1  a 

I 

type 

long 

var iab  It 

id  i  v 

type 

long 

var iablt 

forml 

type 

character 

length 

10 

var iab It 

for«i2 

type 

character 

length 

10 

var iablt 

of  I 

type 

character 

length 

3 

var iab It 

ufd 

type 

character 

length 

3 

var iab It 

ufp 

type 

character 

length 

3 

var iab It 

f  i 

type 

character 

length 

3 

variablt 

fd 

type 

character 

length 

3 

var iablt 

fp 

type 

character 

length 

3 

var iablt 

fB3  _proc 

type 

long 

var iabla 

uBS_proc 

type 

long 

var iablt 

f  86 _proc 

type 

long 

var iabl t 

u86_proc 

type 

long 

var iab It 

f87  _proc 

type 

long 

variablt 

uB7_jproc 

type 

long 

variablt 

f88_proc 

type 

long 

variablt 

uBB  _proc 

type 

long 

variablt 

f89  jroc 

type 

long 

variablt 

u89_proc 

type 

long 

var iablt 

f  90  _proc 

type 

long 

variablt 

u90_proc 

type 

long 

variablt 

f91 _proc 

type 

loing 

variablt 

u91_proc 

type 

long 

variablt 

f 92_proc 

type 

1  ong 

var iab 1 t 

u92  _p roc 

type 

1  ong 
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variable 

f93_proc 

type 

long 

var iab le 

u 93 _proc 

type 

long 

variable 

f94  _proc 

type 

long 

variable 

u94_proc 

type 

long 

variable 

#93_proc 

type 

long 

variable 

u93_proc 

type 

long 

variable 

f 96_proc 

type 

long 

variable 

u96_proc 

type 

long 

variable 

f 97_proc 

type 

long 

variable 

u97  _j>roc 

type 

long 

variable 

f 98 _proc 

type 

long 

variable 

u98 _proc 

type 

long 

variable 

f 99 _proc 

type 

long 

variable 

u99_proc 

type 

long 

variable 

fOO_proc 

type 

long 

variable 

uOOjroc 

type 

.ong 

output 

loft  margin  0 
right  margin  132 
report  to  "dofpro2.  out" 
and 


read  into  a 
def control 
defprol 

joining  defcontrol  defic 


optional  dafprol  doftc 
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I 


l 

I 

I 

r 

r 

r 


read  into  b 
a 

c  s»control_sin_no  c**control_tgpe 

lrpproc_proc_f undad_l  lrpproc_proc_funded_2  lrpproc _proc_f unded_3 
lrpproc _proc_f unded_4  lrpproc_proc_f unded_3  lrpproc  j>roc_fundad_6 
lrpproc_proc_funded_7  lrpproc _proc_fund#d_B 

lrpproc _proc_f unded_9  lrpproc _proc_fundad_10  Irppr oc_proc_#unded_l 1 
lrpproc jroc_funded_12  lrpproc _proc_fundad_13  lrpproc_proc_funded_14 
lrpproc _proc_f unded_13  lrpproc _proc_f unded_16 

lrpproc_proc_unf unded_l  lrpproc _pr oc_unf unded_2  lrpproc_proc_unf und*d_3 
lrpproc_proc_unfunded_4  lrpproc_proc_unf unded_3  lrpproc _proc_unf ond*d_6 
lrpproc_proc_unf unded_7  lrpproc_proc_onf unded_B 

lrpproc jroc_unf unded_9  lrpproc _proe_on#ondad_10  lrpproc_proc_unfunded_ll 
lrpproc_proc_unfunded_l2  lrpproc_proc_unfunded_13  lrpproc_proc_unfunded_14 
lrpproc_proc_unf unded_13  lrpproc_proc_unfunded_16 
lrpproc_dev_code  lrpproc_u*er_code  lrpproc_j»l ss__name 
joining  a.  def control_def ic  "  ssnpri__def ic 
and  ssnpr i_**n_no  =  c**control_s»n_no 
and  s*npri_«sn_na  -  optional  lrpproc _**n_no 

end 

»ort  bg  d*fcontrol_def ic  c *sc ontr ol_»sn_no  end 
format 

page  header 

print  column  47, "******  CONFIDENTIAL  ******“ 
skip  2  line* 

page  trailer 
skip  1  line 

print  column  47, "******  CONFIDENTIAL  a*#***" 

skip  1  line 

print  column  60, pno 

let  pno  “  pno+1 
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before  group  of  defcontrol_def ic 
skip  to  top  of  page 

print  40  spaces.  "FISCAL  SUMMARY  -  DEFICIENCY  " ,  d ef c ontr o l_def  i c  using  “«« 
6  spaces.  “CSS  " ; 

if  defcontrol_tgpe  *■  1  then  print  "Primary" 
else  if  defcontrol_type  =  2  then  print  "Related" 

else  if  def control_type  «  3  then  print  "Non-Materiel" 

else  if  def control_type  *=  4  then  print  "Health  Service" 

else  print  "  " 
skip  1  line 

let  f 83 _proc  «  O 
let  uBS _proc  ■  O 
let  f86_proc  •»  O 
let  u86_proc  «  O 
let  f87_proc  »  O 
let  uB7_j»roc  ■  O 
let  f88_proc  -  O 
let  uB8_proc  »  O 
let  f89_proc  «  O 
let  uB9_proc  =•  O 
let  f90_proc  *  O 
let  u90jproc  «  O 
let  f91 _proc  »  0 
let  u91_proc  »  O 

let  f92_proc  **  O  , 

let  u92_proc  *•  O 

let  f93_proc  ”  O 

let  u93_proc  »  O 

let  f94_p  roc  »  0 

let  u94_proc  »  0 

let  f95_proc  **  0 

let  u93_proc  =  0 

let  f96_proc  *■  O 

let  u96_proc  «■  O 

let  f97 _proc  "  0 

let  u97_proc  =  0 
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f98_proc  =  0 
u98_proc  »  O 
f99_proc  ■=  0 
u99 _proc  "  0 
fOO _proc  *■  O 
oOO_proc  *  O 

group  of  c  nc on tr o  1  _itn_no 
f83_proc  *>  f83_proc+lrpproc _proc. 
u83_proc  “  uB3_proc+lrpproc_proc 
fB6_proc  *  f86_proc+lrpproc_proc 
uB6_proc  “  u86_proc+lrpproc_proc 
f87 _proc  “  fB7_proc+lrpproc_proc 
uB7 jproc  “  uB7_proc+lrpproc_proe 
f88_proc  =  f88_proc*lrpproc_proc 
u88 _proc  “  u88_proc+lrpproc_proc 
f89_proc  ”  f89_proc+lrpproc _proc 
u89_pr oc  -  uB9_proc+lrpproc jroc 
f90_proc  »  f90_proc+lrpproc_proc 
u90_proc  =  u90_proc+lrpproc  _proc 
f 91 _prac  »  f91_proc+lrpproc_proc 
u91_proc  ■  u91_proc+lrpproc_proc 
f92_proc  ■  f92_proc+lrpproc _proc 
u92_proc  *  u92_proc+lrpproc_proc 
f93_proc  =  f93_proc+lrpproc  _proc 
u93_proc  «*  u93_proc  +  lrpproc  _proc 
f94  _proc  =  f 94 _proc  +  lrpproc  _proc 
u94_proc  “  u94 _proc  +  lrppr oc_proc 
f93_proc  “  f93 _proc  +  lrpproc_proc 
u93_proc  **  u93_proc+lrpproc_proc 
f96_proc  ■*  f96_proc+lrpproc_proc 
u96 _proc  »  u96_proc+lrpproc_proc 
f97_proc  =  f 97 _proc+lrpproc_proc 
u97 _proc  ■  u97_proc+lrpproc_proc 
f98_proc  =  f98_proc+lrpproc  _proc 
u98_proc  «  u98_proc+lrpproc_proc 


_f  und*d_l*1000 
unfunded  1*1000 
f undo d_2* 1000 
unf und*d_2*1000 
f und*d_3*1000 
unfun dad  3*1000 
furtd*d_4*1000 
unf und*d_4*1000 
f und»d_3*1000 
unfund*d_3*1000 
f und*d_6*1000 
unf und»d_6* 1000 
fund*d_7*1000 
unf und*d_7* 1000 
fund«d_B*10OO 
unf und*d_B* 1000 
fund*d_9*1000 
unf und*d_9* 1000 
f und*d_10*1000 
unf und*d_10*1000 
f und*d_l  1*1000 
unf und*d_l 1*1000 
f und*d_12*1000 
unf und*d_I 2*1000 
f und*d_13*1000 
.unf  und*d  _1 3*  1000 
_fund*d_l  4*1000 
unfunded  14*1000 


.\i 
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let  f99_proc  =  f99_proc+lrpproc_proc_funded_l  5*1000 
let  u99_proc  =  u99_pr oc+lr ppr oc _pr oc _unf unded_l 5* 1000 
let  fOQ_proc  =  f00_proc+lrpproc_proc_f unded_16*1000 
let  uOO_proc  =  uOO_proc+lrpproc_proc_unf unded_!6*1000 

after  group  of  def contra l_def ic 
let  fortnl  >  “•»*#»»»»*  " 
let  forro2  -  "<<<<<(((*>•• 
let  ufK  -  "X — ” 
let  ufd  -  “D — ” 
let  ufp  -  "P--“ 
let  f«  -  "XXX" 
let  fd  -  "ODD" 
let  fp  -  “PPP" 
let  tf  «  O 

If  f85_tb+uB3_tb  >  tf  then  let  tf  -  f83_tb-*uB5_tb 

tf  f83_dev+u83_dev  >  tf  then  let  tf  “  f83_dev*-uB3_dev 

If  (f83_proc+u83_proc >/10  >  tf  then  let  tf  «■  < f 83_proc+uB5_proc ) /10 

if  f86_tb+u86_tb  >  tf  then  let  tf  -  fBA_tb+u8A_tb 

tf  fB6_dev+u86_dev  >  tf  then  let  tf  m  fS6_dev+uB6_dev 

If  < f06_proc+uB6 _proc)/10  >  tf  then  let  tf  ■  (f86 _proc*u86_proc )/10 

if  f87_tb+u87_tb  >  tf  then  let  tf  -  f87_tb+u87_tb 

if  fB7_dev+u87_dev  >  tf  then  let  tf  ■  fB7_dev*uB7_dev 

if  < f87_proc+u87_proc > /10  >  tf  then  let  tf  ■  < fB7_proc+u87_proc I/IQ 

if  f88_tb+u8B_tb  >  tf  then  let  tf  -  f 88_tb+uBB_tb 

if  f 8B_dev+u8B_dev  >  tf  then  let  tf  “  fB8_dev+uBB_dev 

if  ( f88_proc+u88_pr oc ) / 10  >  tf  then  let  tf  “  C f B8_proc+uBB_proc > /10 

if  f B9_tb+u09_tb  >  tf  then  let  tf  »  f B9_tb+u89_tb 

if  f 89_dev+u89_dev  >  tf  then  let  tf  «  fB9_dev+u89_dev 

if  < f89_proc+u89_proc > /10  >  tf  then  let  tf  “  ( f89_proc*uB9_proc )/ 10 

if  f90_tb+u90_tb  >  tf  then  let  tf  «  f 90_tb+u90_tb 

if  f 90_dev+u90_dev  >  tf  then  let  tf  ■  f90_dev+u90_dev 

if  (  f 90_proc+u90_proc  ) /10  >  tf  then  let  tf  «  (  f  90_pr  oc+u90._pr  oc  >  / 10 
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if  f91_tb+u91_tb  >  tt  then  let  tf  -  t 91_tb-f091_tb 

it  f91_dev+u91_dev  >  tf  than  let  tt  *  f91_dev+u91_dev 

if  ( f91_proc+u91_proc ) /10  >  tf  then  lat  tf  =  ( f91_proc-*-u91_proc  > /10 

if  f 92_tb+u92_tb  >  tf  then  lat  tf  -  f92_tb+u92_tb 

if  f92_dev+u92_dev  >  tf  than  lat  tf  *  f92_dev+u92_dev 

if  ( f92_prac+u92_proc > /10  >  tf  than  lat  tf  •  < f92_proc+u92 _proc>/10 

if  ( f 93 _proc+u93_pr oc ) / 10  >  tf  than  lat  tf  «  t f93_proc+u93_proc >/10 

if  <  f94jroc+u94_proc  ) /10  >  tf  than  lat  tf  »  ( f94_proc+u94_proc  > /10 

if  ( f 93_pr oc+u93_pr oc ) / 10  >  tf  than  let  tf  »  ( f93_proc*u93_proc > / 10 

if  <f96_proc+u96_jiroc)/10  >  tf  than  let  tf  *  ( f96j>roc+u96_proc > /I0 

if  <f97_proc+u97__proc  )/10  >  tf  then  lat  tf  »  ( f97_proc+u97 _proc>/10 

if  <f9B_proc+u98_proc )/10  >  tf  than  lat  tf  »  <f9B _proc+u98 _proc>/10 

if  <f99_proc+o99_proc)/10  >  tf  than  lat  tf  =  t f 99 _proc+u99 _proc)/10 

if  (fOO _proc+uOO_proc )/10  >  tf  than  let  tf  *  ( fOO_proc+uOO _proc>/10 

lat  tf  -  tf*0.  B 

skip  3  lines 

let  «  -  130000 

if  tf>«  than  lat  «  ■  300000 

if  tf>«  than  lat  *  »  730000 

if  tf>«  than  lat  >  -  1300000 

let  *div  =>  »/30 

for  i  »  1  to  30  do  begin 

if  i«l  or  i**ll  or  1*21  than  print  4  spaces, x/1000  using  "tttttMMMT'i 

if  i*13  than  print  "ROTE  <*  1H>"| 

tf  i*17  than  print  "PRCJC  <*10m"i 

print  column  13. ”I”i 

if  fB3_tb  uB3_tb  >*  >  then  begin 

if  fB5_tb  >=  i  than  print  f«i  else  print  ufm  and 
else  print  "  “i 

if  fB3_dav  +  u83_dev  >*  >  then  begin 

if  f85_dev  >*  s  than  print  fd;  else  print  ufd.  end 
else  print  " 
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if  fBS_proc  +  u85_proc  >=  x*10  then  begin 

if  f83_proc  >=  x*10  then  print  fpi  else  print  ufp;  end 
else,  print  "  ”j 
print  1  space; 

if  f86_tb  +  o86_tb  >=  «  then  begin 

if  fB6_tb  >*=  i  then  print  fx;  else  print  ufx;  end 
else  print  "  “ ; 

if  f86_dev  +  u86_dev  >*■  x  then  begin 

if  f86_dev  >“  x  then  print  fd;  else  print  ufd;  end 
else  print  “  “; 

if  f86_proc  +  086 _proc  >=  x*10  then  begin 

if  fB6_proc  >“  x*10  then  print  fp;  else  print  ufp;  end 
else  print  “ 
print  1  space; 

if  f87_tb  +  uB7_tb  >=  x  then  begin 

if  f87_tb  >“  x  then  print  fx;  else  print  ufx;  end 
else  print  "  "; 

if  f87_dev  +  u87_dev  >=  x  then  begin 

if  fB7_dev  >”  x  then  print  fd;  else  print  ufd;  end 
else  print  “  "; 

if  f87_proc  +  u87_proc  >•=  x*10  then  begin 

if  f87_prac  >»  x*10  then  print  fp;  else  print  ufp;  end 
else  print  "  "; 

print  1  space; 

if  fB8_tb  +  u88_tb  >■  x  then  begin 

if  f 88_tb  >=  1  then  print  fx;  else  print  ufx;  end 
else  print  "  "1 

if  f8B_dev  +  u88_dev  >■  x  then  begin 

if  f88_dev  >=  x  then  print  fd;  else  print  ufd;  end 
else  print  “ 

if  f88__proc  +  u88_proc  >=  x*10  then  begin 

if  f88_proc  >■“  x*10  then  print  fp;  else  print  ufp;  end 
else  print  "  ”; 

print  1  space; 

if  f89_tb  +  u89_tb  >=  x  then  begin 

if  f89_tb  >=  x  then  print  fx;  else  print  ufx;  end 
else  print  " 
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if  f 89_d ev  +  u89_dev  >«*  i  then  bagin 

if  f89_dav  >»  *  then  print  fd/  alaa  print  ufdi  end 
els#  print  “  “z 

if  f89_proc  +  uS9_proc  >“  **10  than  begin 

if  f89_proc  >■  **10  then  print  fpi  alaa  print  ufpi  end 
elae  print  "  “z 
print  1  apace/ 

if  f90_tb  +  u90_tb  >=»  *  than  begin 

if  f 90_t b  >»  *  then  print  f*/  alaa  print  uf*z  and 
alaa  print  "  “/ 

if  f 90_dav  +  u90_dev  >-  *  than  begin 

if  f90_dev  >“  *  then  print  fd/  elae  print  ufd/  end 
alaa  print  "  “/ 

if  f90_proc  +  u90 _proc  »*10  than  begin 

if  f90_proc  >«*  **10  then  print  fpi  alaa  print  ufp/  and 
elae  print  "  "/ 

print  1  apace/ 

if  f91_tb  +  u91_tb  >=•  *  than  bagin 

if  f91_tb  >“  *  then  print  f*z  alaa  print  uf*z  end 
ala*  print  *  "/ 

if  f91_dev  +  u91_dav  >*■  *  than  bagin 

if  f91_dev  >=  *  then  print  fdz  alaa  print  ufdz  end 
alaa  print  •'/ 

if  f91_proc  +  u91_prqc  >=  **10  than  begin 

if  f91_proc  >=  **10  than  print  fpz  alaa  print  ufp /  and 
elae  print  “  '•/ 

print  1  apace/ 

if  f98_tb  +  u92_tb  >-  «  then  begin 

if  f92_tb  >«  <  then  print  f*z  alaa  print  uf*/  end 
alaa  print  "  •'/ 

if  f92_dav  +  u92_dev  >•»  *  then  bagin 

if  f92_dev  >»  *  then  print  fd/  elae  print  ufdz  end 
alaa  print  “  "/ 

if  f92_proc  +  u92_proc  >*  **10  than  begin 

if  f92 _proc  >«  **10  then  print  fpz  elae  print  ufpz  end 
elae  print  ”  “ / 

print  2  spaces/ 
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if  f93 _proc  *  u93_proc  >»  x*10  then  begin 

if  f93_proc  >«  x*10  then  print  fps  cite  print  ufpi  end 
elee  print  “  "; 

print  2  spaces; 

if  f94 jrot  +  u94_proc  «*10  then  begin 

if  f94_proc  «*10  then  print  fpi  else  print  ufp;  end 
print  *' 
print  2  spaces; 

if  f93_proc  ♦  u95_proc  >■  i*10  then  begin 

if  f93_proc  >”  «*10  then  print  fpi  else  print  ufpi  end 
else  print  “ 
print  2  spaces; 

if  f9A_jproc  +  u96_proc  >=  **10  then  begin 

if  f9A_proc  >»  i*10  then  print  fp;  els*  print  ufp;  end 
els*  print  "  "j 
print  2  spaces; 

if  f97_proc  +  u97_proc  >=  «*10  then  begin 

if  f97_proc  >”  **10  then  print  fp;  else  print  ufp;  end 
else  print  "  ”; 

print  2  spaces; 

if  f98 _proc  +  u98 _proc  >«=  **10  then  begin 

if  f98_proc  >”  **10  then  print  fpi  else  print  ufp;  end 
else  print  "  “; 

print  2  spaces; 

if  f99_proc  +  u99_proc  >«  »*10  then  begin 

if  f99 _proc  >■*  **10  then  print  fp;  else  print  ufp;  end 
dlstf  print  n  h j 

print  2  spaces; 

if  fOO_proc  +  uOOjroc  >«■  **10  then  begin 

if  f 00_pr oc  >»  **10  then  print  fp;  else  print  ufp;  end 
else  print  " 
print  *“ 
let  *  **  *-*div 
end 

print  13  spaces; 

for  i  *  14  to  132  do  print 
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print  16  spaces. “1983“. 6  spaces.  "1986“. 6  spaces. *  1987",  6  spaces. 

"1968".  6  spaces.  “1989“.  6  spaces,  •1990",  6  spaces,  “1991  “,  6  spaces,  "1992", 

I  93  94  93  96  97  9B  99  00“ 

print  column  94,  “  I  “ 

print  “Tech  Base  “.  f83_tb  using  forml .  f86_tb  using  tonal, 

f87_tb  using  forml,  f88_tb  using  forml, 
fB9_tb  using  forml.  f90_tb  using  forml. 
f91_tb  using  forml.  f92_tb  using  forml. column  94,  “  I  " 
print  “  (“.  fn.  “/“.  ufs.  “)  ", 

-u8d_tb  using  form2,  -u86_tb  using  form2, 

-uB7_tb  using  f orm2, -uBB_tb  using  forsi2. 

-uB9_tb  using  fons2, -u90_tb  using  form2, 

-u91_tb  using  foretf,  -u92_tb  using  forstf,  column  94.  "I” 
print  column  94, “1“ 

print  “Development  “,  fB3_dev  using  forml,  fB6_dev  using  forml, 

f B7_dev  using  forml.  f88_dev  using  forml, 
f89_dev  using  forml.  f90_dev  using  forml, 
f91_dev  using  forml.  f92_dev  using  forml,  column  94, " I 
print  “  <".  fd,  "/“.ufd.  “>  ", 

-uB3_dev  using  f orm2, -u86_dev  using  foris2. 

-uB7_dev  using  fors>2, -uBB_dev  using  for«2. 

-uB9_dev  using  fora>2,  -u90_dev  using  form2, 

-u91_dev  using  fore»2, -u92_dev  using  form2,  column  94.  "  I  " 
print  column  94. “ I “ 

print  "Procurement  ", fBSjroc  using  forml, fB6_proc  using  forml, 

f87_proc  using  forml,  f8B_proc  using  forml. 
fS9 jproc  using  forml, f90_proc  using  forml, 
f91_p  roc  using  forml.  f 92 _proc  using  forml, 
column  94, " I  See  Out  Year  Procurement" 

print  "  fp,  “/*,  ufp,  “)  *, 

-u83_proc  using  for m3,  -uB6 _proc  using  form2, 

-u87_proc  using  f or«2» -uBB_proc  using  form2. 

-uB9_proc  using  form2,  -u90 _proc  using  form2, 

-u91 jroc  using  f orm2, -u92_pr oc  using  form2. 
column  94, "I  Funding  Levels  Below" 

prinl  column  94, " I " 
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print  94  spaces,' 

for  i«-99  to  132  do  print  *•-"» 

print 

print  96  (paces. " 1993“, 6  spaces. "1994". 6  spaces, " 1995“. 6  spac es. " 1996". 

6  spaces. "1997". 6  spaces. "1998". 6  spaces.  “1999". 6  spaces.  "2000“ 
skip  1  line 

print  29  spaces, "Procurement  (Out  Years)". 

f93_proc  using  forml. f94_proc  using  forml. 
f99_proc  using  forml,  f96_proc  using  forml. 
f97_proe  using  forml, f9B _proc  using  forml. 
P99_proc  using  form 1. fOO_proc  using  forml 
print  92  spaces, -u93_proc  using  f orm2> -u94_proc  using  form2. 

-u99_proc  using  f or*2.  -u96_j»roc  using  form2. 

-u97_proc  using  form2< -u98_proc  using  form2, 

-u99_proc  using  form2.  -uOOjroc  using  form2 


%  <■ 


* 
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3.  Deficiency  Summary  Report  Generator  -  Part  1 
/u/plan/rpt.L1nda/sysprol 

This  program  accumulates  ROTE  funding  for  systems  in  csscontrol.  For  each  system,  the  tech 
base  and  development  funded  and  unfunded  amounts  are  accumulated.  The  resulting  values  are  output  In 
ASCII  format  for  loading  Into  the  sysprol  file  of  the  data  base.  This  program  Is  called  auto¬ 
matically  by  the  shell  /u/plan/db/defroll . 
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database  mat_plan  end 

define 

variable 

vb 

type 

character  length  1 

variable 

P85_tb 

type 

long 

variable 

u83  tb 

type 

long 

variable 

»B3_dev 

type 

long 

var iable 

u83_dev 

type 

long 

variable 

f B6_tb 

type 

long 

var iab le 

u86_tb 

type 

long 

variable 

f86_dev 

type 

long 

variable 

u86_d  e v 

type 

long 

variable 

f  87  tb 

type 

long 

variable 

u87  tb 

type 

long 

var iable 

P87_dev 

type 

long 

variable 

u87_dev 

type 

long 

variable 

f B8_tb 

type 

long 

variable 

u88_tb 

type 

long 

variable 

fB8_dev 

type 

long 

var iab le 

u88_dev 

type 

long 

variable 

f89_tb 

type 

long 

variable 

u89_tb 

type 

long 

variable 

fB9_dev 

type 

long 

variable 

«89_dev 

type 

long 

variable 

P90_tb 

type 

long 

variable 

o90_tb 

type 

long 

variable 

f 90_dev 

type 

long 

variable 

u90_dev 

type 

long 
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variable 

f91. 

tb 

tgpe 

long 

variable 

u91 

tb 

tgpe 

long 

variable 

f  91 

_dev 

tgpe 

long 

var labia 

u91 

_dev 

tgpe 

long 

variable 

f92 

_tb 

tgpe 

long 

variable 

u92 

_tb 

tgpe 

long 

variable 

f  92 

_dev 

tgpe 

long 

variable 

u92 

_dev 

tgpe 

long 

•nd 

output 

top  margin  0 
loft  margin  0 
pago  length  32000 
report  to  "sgeprol.  out" 
end 

read  into  a 

c«  icon  trol_een_.no 
uikpkg_no_indi  ukpkg_eubcat 

<*>kpkg_fund_grO  wkpkg_fund_grl  wkpkg_f und_gr2  Mkpkg_fund_gr3 
iokpkg_fund_gr9  mkpkg_f und_gr6  wkpkg_f und_gr7 
“l,P*9_“"P>'n4_V’‘0  wkpkg_unfund_grl  *>kpkg_unfund_gr2  wkp kg_unf und_gr3 
“kpkg_unfund_gr4  wkpkg_unf und_gr9  wkpkg_unfund_gr6  wkpkg_unfund_gr7 
joining  ceecontrol_een_no  “  peeudol ink_een_no 
and  peeudolink_wkpkg_ind>  •  ukp kg_no_ind i 

end 

eort  bg  ceecontrol_een_no  wkpkg_cmd  wkpkg_cat  ukpkg_no  end 
format 


before  group  of  ceecontrol_een_no 
let  f83_tb  -  0 
let  u8S_tb  -  0 
let  f 8S_dev  ■  O 
let  u89  dev  »  0 
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1  at  f 8A_tb  »  0 
lat  u86_tb  =*  0 
let  f86_dev  *  O 
lat  u86_dav  *  O 
lat  f87_tb  -  O 
lat  o87_tb  *  O 
lat  #87_dav  -  O 
lat  u87_dav  “  O 
lat  f88__tb  -  0 
lat  u88_tb  “  O 
let  f8B_dev  -  O 
let  u88_dev  «  O 
let  f89_tb  -  O 
lat  u89_tb  ■  O 
let  f89_dav  -  O 
lat  u89_dev  ■  O 
let  f90_tb  «  0 
lat  u90_tb  «  O 
lat  f90_dev  -  O 
let  u90_dev  »  O 
lat  f91_tb  -  O 
lat  u91_tb  -  O 
let  f91_dev  -  O 
let  u91_dav  -  O 
lat  f 92_tb  -  O 
lat  u92_tb  -  O 
lat  f92_dev  -  O 
lat  u92  dev  >  O 


before  group  of  wkpkg_no 

If  wkp kg_aobcat»"6.  1"  or  wkpkg_«ubcat*"6.  2"  or  wkpkg_aubcat*"6.  3A"  then  begin 


let  f8S_tb 
lat  f86_tb 
lat  f87_tb 
lat  fB8  tb 
lat  f89_tb 
let  f90_tb 
let  f91_tb 
let  f92  tb 


f89_tb 
fB6_tb 
f87_tb 
f  88_tb 
f B9_tb 
f90_tb 
f91_tb 
f92..tb 


+  wkpkg 

♦  wkpkg 

♦  wkpkg 
+  wkpkg 
+  wkpkg 
+  wkpkg 
+  wkpkg 
+  wkpkg 


f  und__grO 
f  ond__gr  1 
f und_gr2 
f und^gr3 
f und_gr4 
f und_grS 
_f  und_yrA 
J und_gr7 
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t 

f 


i  t 


* 


i«t 

itt 

i*t 

t«t 

let 

1st 

let 

lit 

•  rid 

•  1  •• 

let 

let 

let 

let 

let 

let 

let 

let 

let 

let 

let 

let 

let 

let 

let 

let 

end 


uB3_tb 

uB6_tb 

u87_tb 

o88_tb 

u89_tb 

u90_tb 

u91_tb 

u92_tb 

if  wkpkg_ 
IBSJev 
t 86_dev 
fB7_dev 
fBB.dev 
fB9_dev 
f90  dev 
f91_dev 
f92_dev 
u83_dev 
u86__dev 
uB7_.de  v 
oB8_.de v 
u89__d  •  v 
u90_dev 
u91_dev 
u92  dev 


u83_tb 
uB6_tb 
u87_tb 
u88_tb 
uS9_tb 
o90_tb 
u91_tb 
092  tb 


+  wkpkg 
♦  wkpkg 
wkpkg 
wkpkg 
wkpkg 
wkpkg 
wkpkg 
wkpkg 


_unf  und_yrO 
_unf  und_yr  1 
_unf und_yr2 
_unf  und_yr3 
_unf  und_yr4 
_unf  und__yr3 
_unf  und_yr6 
_unfund_yr7 


*ubcet«”6  3B"  or  wkpkg_eubcat>’*& 

■  fB3_dev  ♦  wkpkg_f und_yrO 
»  f86_4ev  ♦  wkpkg_fund_.gr  1 
"  fB7_dev  ♦  wkpkg_f und__gr2 
“  f8B_dev  ♦  wkpkg_fund_gr3 
“  fB9_dev  ♦  wkpkg_fund_yr4 
«  f90_dev  ♦  wkpkg_fund_yr3 
»  f91_dev  ♦  wkpkg_fund_yr6 

■  f92_dev  ♦  wkpkg_f und_yr7 

■  u83_dev  ♦  wkpkg_unfund_grO 

■  u86_dev  ♦  wkpkg_unf und_gr  1 

*  uB7_dev  +  wkpkg_unf und_gr2 
"  uBB_dev  ♦  wkp kg_unf und_gr3 

■  uB9_dev  ♦  wkpkg_unfund_gr4 

■  u90_dev  ♦  wkpkg_unfund_gr3 

■  u91_dev  ♦  wkpkg_unfund_yr6 

*  u92_dev  ♦  wkpkg_unfund_yr7 


4“  or  wkpkg_eubcat~a6.  7"  then  begin 


after  group 
let  vb»”l* 
print  ceec 
print  fB3_' 
fB9 

print  u83 
uB9 
print  fB3 
f  89 

print  u83 
uB9 

end 


of  decontrol  sin  no 


ontrol_«en_no>  vbi 

tb.  vb,  f86_tb i  vb .  f87_tb.  vb.  fB8_tb,  vb. 
tb.  vb,  f90_tb.  vb.  f91_tb,  vb.  f92_tb,  vbi 
tb.  vb,  u86_tb.  vb.  uB7_tb,  vb,  uB8_tb,  vb. 
tb,  vb.  u90_tb.  vb.  u91_tb,  vb.  u92_tb,  vbi 
dev.  vb.  fB6_dev.  vb,  f87_dev.  vb.  f88_dev,  vb. 
dev,  vb.  f90_dev.  vb.  f91_dev.  vb.  f92_dev.  vbi 
dev.  vb.  u86_dev.  vb,  u87_dev.  vb.  u88_dev,  vb. 
dev.  vb.  u90_dev.  vb.  u91  dev.  vb.  u92  dev.  vb 
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4.  Deficiency  Summary  Report  Generator  -  Part  2 
/u/plan/rpt.Linda/defrolltry 

This  report  produces  the  printed  deficiency  rollup  report.  It  is  a  variation  on  the 
program  defroll,  but  Instead  accepts  system  RDTE  funding  from  the  file  sysprol.  This  results  in  a 
net  five-fold  Improvement  In  the  running  speed  of  this  report.  This  program  is  called  automatically 
by  the  shell  /u/plan/db/defroll . 
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{Deficiency  Summary} 
database  ma t_plan  and 
def int 


variable 

1 ineelef t 

type 

integer 

variable 

counter 

type 

integer 

variable 

total_fund 

type 

integer 

variable 

pagabraak 

type 

Integer 

variable 

pagetrail 

type 

character 

length  1 

variable 

star* 

type 

character 

length  4 

variable 

aval  count 

type 

integer 

var iab la 

f irttf 1 

type 

Integer 

paramCll 

pno 

type 

integer 

and 

output 

laft  margin  O 
right  margin  132 
report  to  “defrol 1. out" 
and 


read  into  b 

e »»c ontr o l_typ a 
defcontrol_type 

»snpri_defic  *«npr i_*«n_no  **npri_con_val 
joining  defcontrol_def ic  ■  *>npri_defic 
and  c»»control_e*n_no  “  tinpr i_een_ no 


raad  into  c 
ssndef_def_2 
unique  sandef _**n_no 
joining  b. »»npr i_»tn_no 


atndef  ssn  no 
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read  into  a 
b 

c.  ssndef_def_2 
ssndesc_cmd 

lrppr oc_ssn_t i t la  lrppr oc_mi ss_name 

Irpproc _proc_f unded_l  lrpproc_proc_funded_2  lrpproc _proc_f unded_3 

lrpproc_proc_f unded_4  lrpproc_proc_f unded_9  lrpproc_proc_funded_6 

lrpproc _proc_f unded_7  lrpproc_proc_f unded_8  lrpproc_pr oc_f unded_9 

lrpproc_proc_funded_10  lrpproc_proe_funded_l 1  lrpproc _proc_f unded_12 

lrpproc_proc_f und»d_13  lrpproe_proc_funded_14  lrpproc_proc_f unded_19 

lrpproc_proc_f und«d_16 

s_fB3  tb  s_f86_tb  s_f 87_tb  s  f88_tb 

*_f89_tb  s_f 90_tb  a  f91_tb  s_f92_tb 

s_f 85_dev  s  f  B6_d ev  s  f87  dev  •  fB8  dev 

s_f 89_dev  s_f90_dev  s_f91_dev  s_f92_dev 

de f desc_te x to  defdesc_textl  def desc_tex t2  defdesc_text3  defdesc_text4 
def desc_text9  def de»c_text6  def de»c_text7  def desc_tex t8  def desc_text9 
joining  b.  eenpr i_««n_no  *  c.  sendef _ssn_no 

and  b.  esnpri_esn_.no  »  optional  esndesc_esn_no 
and  b.  eenpr i_een_no  “  optional  lrpproc_een_no 
and  b.  eenpr i_esn_no  *  optional  sgsprol_ssn_no 
and  b.  ssnpri_defic  *  optional  def desc_def ic 

end 

sort  bg  ssnpri_defic  csscontrol_tgpe  eenpr i_con_val  esnpri_een_no  end 
format 

page  header 

if  def desc_te x tOC2.  23«"8"  then  print  column  94,  ••#*****  SECRET 
else  print  column  47. “**#**»  CONFIDENTIAL  ******" 
let  pagetrai l»def deec_tex tOI2,  2J 
if  pagebreak>l  then  begin 
skip  1  line 

print  -TRADOC  DEFICIENCY: ”,  eenpr i_defici 
print  H  < continued ) "» 

print  column  30,  "CSS 
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if  def c ontro 1 _typ •  ”  1  then  print  “Primary" 

else  if  defcontrol_type  ■  2  then  print  "Related" 

else  if  defcontrol_typa  »  3  then  print  "Non-Hater iel“ 

else  if  def control_type  »  4  then  print  “Health  Service” 

else  print  “  “ 

skip  1  line 

print  column  61 ,  “ - - 

print  column  61, ”(  CON  I  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 

print  column  61,  “I - 1 - 

end 

else  begin 
skip  4  lines 

print  "TRADOC  DEFIC IENC Y:  ",  ssnpr  i_def  ic I 
print  column  50,  "CSS  "i 

if  defcontrol_type  «  1  then  print  “Primary" 
else  if  defcontrol_type  »  2  then  print  “Related" 

else  if  defcontrol_type  *■  3  then  print  “Non-Materiel” 

else  if  def control_type  -  4  then  print  "Health  Service" 

else  print  “  " 
skip  1  line 
end 

let  llnesleft  -  48 

before  group  of  ssnpri_dafic 
let  pagebreak  »  O 
let  firstfl  -  O 
skip  to  top  of  page 

print  “DESCRIPTION. ",  column  13,  def deic_te«tO  ,  def desc_te»tl 

print  column  13,  defdesc_teit2  ,  def desc_text3 

print  column  13,  def desc_te»t4  ■  def desc_te«tS 

print  column  13,  defdesc_tei t6  ,  defdesc_te»t7 

print  column  13,  defdesc_te*t8  ,  defdesc_te»t9 

skip  2  lines 

print  column  61," - - 

print  column  61, "i  CON  i  89  B6  87  88  89  90  91  92  93  94  95  96  97  98  99  00 

print  column  61,  “I - i - 

let  llnesleft  =  linesleft-10 
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before  group  of  csscontrol_type 
if  linesleft<8  then  begin 
let  pagebreak  =  1 

if  linesleft  >  1  then  print  column  61.  "  I  column  67.  “  I  ",  column  132.  "I" 

print  column  61." - - . - 

skip  to  top  of  page 
end 

if  firstfl  »  1  then  begin 

print  column  61. " I". column  67.  " I “.  column  132. " I " 
print  column  61. “I “. column  67.  " I column  132.  ”1“ 
end 

else  let  firstfl  »  1 
let  counter»0 

if  csscontrol_type  ”  0  then  begin 

print  "Base  Case  Systems: ”. column  61. " I ". column  67. " I  ",  column  132.  "I" 

print  “ - - - "i  end 

else  if  csscontrol_type  *»  1  then  begin 

print  "Type  Classified: ",  column  61, " I  ",  column  67, " I ". column  132. "I" 

print  " - "i  end 

else  if  csscontrol_type  «  2  then  begin 

print  "Development  Systems: ". column  61. " I ". column  67, " I  ",  column  132, " I " 

print  " - "i  end 

else  if  csscontrol_type  “  3  then  begin 

print  “PIPs:  ”.  column  61,  "  I  ",  column  67,  "  I",  column  132,  “  I  " 
print  " - "i  end 

else  if  csscontrol_type  «  4  then  begin 

print  "Technology  Demonstrators: ",  column  61 ," I", column  67, "I", column  132. ” I 

print  " - "i  end 

else  if  csscontroI_type  e  3  then  begin 

print  "Broad  Base  Tech  Area:  ",  column  61, " I", column  67, “ I  ",  column  132,"!" 

print  " - "i  end 

else  if  csscontrol_type  «=  6  then  begin 

print  "Requirement  Above  Corps", column  61. ” I  ",  column  67, " I  ",  column  132."!" 

print  " - " i 

end 

print  column  61.  " I  ”,  column  67,  "!", column  132, "I" 
let  linesleft  »  linesleft-4 
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•  f 

I  t 


>1- 


before  group  of  ssnpr i_ssn_no 
if  linesleft<4  then  begin 
let  pagebreak*l 

if  linesleft  >  1  then  print  column  61, “ I column  67. " I ",  column  132. 

print  column  61.  “ - - 

skip  to  top  of  page 
end 

let  counter*counter+l 

print  column  61. " I H.  column  67. " I “. column  132.  H I” 
print  counter,".  ".  lrpproc_sm_t  ltlet  1,  91 1.  column  61.  “I  ", 
ssnpr i_con_val.  column  67,  “I "i 

let  total_f und»lrpproc_proc_fund#d_l+lrpproc _proc_f unded_2# 
lrpproc_proc_funded_3+lrpproc_proc_funded_4+ 
lrpproc_proc_fund#d_3+  Irpproc  _proc_f  unded_6+ 

Irpproc _proc_funded_7  +  Irpproc  _proc_funded_B+ 
lrpproc_proc_funded_9+  lrpproc_proc_f unded_10+ 
lrpproc_proc_f unded_ll+  lrpproc_proc_f unded_12+ 
lrpproc_proc_f und#d_13+  lrpproc_proc_f unded_14+ 
lrpproc_proc_f unded_13+  lrpproc_proc_f unded_16 
if  ssnpr i_ssn_no  matches  "4*M  then  print  column  93.  "CBTOCK  FUNDED? ",  column  132, "I" 

then  print  column  93. "<NDT  SCHEDULED?", column  132,  ” I" 


if 

if 

if 

if 


else  if  total_fund  * 
else  begin 

if  ssndef_def_2 
if  lrpproc_proc_funded_l 
if  lrpproc_proc_funded_2 
if  lrpproc_proc_f unded_3 
lrpproc_proc_f unded_4 
lrpproc_prac_funded_3 
lrpproc_proc_f unded_6 
Irpproc  _proc_f unded_7 
if  lrpproc_proc_f unded_8 
if  Irpproc _proc_f unded_9 
if  lrpproc_proc_f unded_10  > 
if  Irpproc _proc_f unded_ll  > 
if  Irpproc _proc_funded_12  > 
if  Irpproc _proc_f unded_l3  > 


then  let  stars*''#*##"  els 


0  then  print  stars* 

0  then  print  stars* 

0  then  print  stars* 

0  then  print  stars* 

0  then  print  stars* 

0  then  print  stars* 

0  then  print  stars* 

0  then  print  stars* 

0  then  print  sters* 

0  then  print  stars* 
0  then  print  stars* 
0  then  print  stars* 
0  then  print  starsi 

63 


let  stars*" 

mmmm" 

lse  print  “ 

H  . 

Is#  print  " 

M  , 

lse  print  " 

M  . 

f 

lse  print  " 

M  . 

lse  print  “ 

II  . 

lse  print  " 

»  . 

Is#  print  “ 

“l 

lse  print  ” 

II  . 

lse  print  " 

•1  . 

« 

else  print  ” 

M 

else  print  " 

M 

else  print  " 

N 

else  print  " 

H 

.r  v  • .  ■ 

VS 
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if  lrpproc_proc_funded_14  >  0  then  print  star*)  els*  print  "  "i 

if  lrpproc Jproc_t unded_l 5  >  0  then  print  stars;  else  print  “  "i 

if  lrpproc __pr  oc_f  unded_16  >  0  then  print  stars. "I”  else  print  " 

end 

print  column  ll."ssn  number:  *mpri_s»n_no.  column  30.  "command :  ". 

ssnd*sc_cmd.  "  -  “.  lrpproc_mis*_nam*. column  61. “ I". column  67, “I Mi 
let  linesleft  =  linesleft-3 


] 


I 

J 

] 

1 


% 


i 


t 


¥ 


i 

'  r 


after  group  of  ssnpr i_ssn_.no 


let 

•valcount  ”  0 

if 

s_fB9_tb+s_f89_d*v 

> 

0 

then 

pr  int"+-*-++"» 

else 

print 

I* 

U  . 

if 

s_f86_tb+s_f86_d*v 

> 

0 

then 

print"++++”i 

els* 

print 

M 

II  . 

if 

s  f 87  tb+*  f 87  dev 

> 

0 

then 

pr int"++++"i 

else 

print 

M 

. 

if 

s_f88_tb+s_f 88_dev 

> 

0 

then 

pr int"++++"i 

else 

print 

•1 

M  . 

if 

s_f89_tb+s_f89_dev 

> 

0 

then 

pr int“++a+"i 

else 

print 

II 

II  . 

if 

s  f 90  tb+s  f 90  dev 

> 

0 

than 

pr  int"f+S'+"i 

els* 

print 

N 

M  . 

if 

s  f91  tb+s_f91  dev 

> 

0 

then 

pr int"++++“i 

els* 

print 

H 

II  . 

if  s_f92_tb*s_f9a_d*v 
print  column  132.“!“ 

> 

0 

then 

pr int"++f+"i 

else 

print 

M 

II  . 

after  group  of  ssnpri_defic 
let  pagebreak  «  0 

if  lin*sleft?l  then  print  column  61.  “  I  ”.  column  67. " I “. column  132.  " 1“ 
print  column  61.  " - - 

page  trailer 
skip  1  line 
print  "Legend: "» 

if  pagetrail  “  "8"  then  print  column  94.  "##****  a  E  C  R  E  T  ##### 

els*  print  column  47. "a***#*  CONF  1  DENT  I  A  L  a#****" 

print  "  ##**  -  System  Production  Funding" 

print  "  mmmm  -  Multi-def.  System  Production  Funding" 

print  "  ++++  -  Work  Package  ROTE  Funding", column  60, pno 

let  pno  **  pno+1 

end 
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B.  COMMODITY  REPORTS 

1 •  Commodity  Summary 

/u/plan/rpt .Llnda/commod 

This  report  sorts  the  systems  In  csscontrol  by  command  and  commodity  line  to  produce  a 
report  which  summarizes  the  activities  ongoing  In  each  major  functional  area.  System  procurement 
funding  and  BOP  deficiencies  are  also  Included. 
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<  Command  to  Commodity  Lin*  to  Sy«t*m  to  Funding  Summary  > 


database  mat_plan 

end 

define 

variable 

br  k 

type 

integer 

variable 

tot 

type 

integer 

variable 

ent 

type 

integer 

paramtll 

pno 

type 

integer 

end 

output 

loft  margin  O 
right  margin  132 
rtpart  to  "commod.  out'* 
and 

raad  into  a 

c**control_»*n_no 

ssndcsc_cmd  s sndesc_ma jor_»y stem 

ssndef 

1 r p pr oc _* sn_t i t 1 •  lr ppr oc_mi i*_nam* 

lrpproc_proc_f und*d_l  lrpproc _proc_fund*d_2  lrpproc_proc_f und*d_3 
lrpproc_proc_f und*d_4  lrpproc  _Jproc_fund*d_S  lrpproc_proc_fund*d_& 
lrpproc_proc_f und*d_7  lrpproc_proc_f und*d_B  irpproc_proc_f unded_? 
lrpproc_proc_fund*d_10  lrpproc _proc_f und*d_l 1  lrpproc _pr oc_f und*d_12 
lrpproc_proc_f und*d_13  lrpproc_proc_fund*d_14  lrpproc_proc_fund*d_lS 
lrpproc_proc_f und*d_16 

lrpproc_proc_unfund*d_l  lrpproc_proc_unf und*d_2  lrpproc _proc_unf und*d_3 
lrpproc_proc_unfund*d_4  lrpproc jroc_unfund*d_9  lrpproc_proc_unf und*d_6 
lrpproc_proc_unf und*d_7  lrpproc_proc_unf und*d_8  lrpproe_proc_unf undad_9 
lrpproc jproc_unfund*d_10  lrpproc_proe_unf und*d_l 1  lrpproc_proc_unfund*d_12 
lrppr oc_proc_unf und*d_13  lr ppr oc_proc_unf und*d_14  lrpproc_proc_unf und*d_19 
lrpproc _p roc _unfund*d_l 6 

joining  csscontrol_«*n_no  »  optional  isnd*»c_s*n_no 
and  c**control_»*n_no  ■  optional  ssndef_ssn_.no 
and  csscontrol_ssn_no  »  optional  lrpproc  nn  no 
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ifter  group  of  ssndesc_ma jor_system 
if  brk  ”  0  then  begin 

print  "  - 


let  brk  »  1 
end 

before  group  of  c*i control_*en_no 
let  cnt  “  cnt+1 
if  cnt>22  then  begin 

print  M  - 


let  brk  «  1 
skip  to  top  of  page 
end 

print  "I  "» c ssc ontro l_»in_no> 2  space*.  lrpproc_e*n_ti tie.  1  space. 
lrpproc_miss_nameC 1.  S3.  " I "» 

let  tot“lrpproc_proc_f unded_l+lrpproc_proc_funded_2+lrpproc _proc_f unded_3+ 
lrpproc  _proc_funded_4+lrpproc  _proc_f unded_3+lrpproc_proc_f unded_6+ 
lrpproc_proc_f unded_7+lrpproc _proc_f  unded_B+lrpproc_proc_funded_9'*- 
lrpproc_proc_f unded_10+ lrpproc _proc_f unded_l l+lrpproc_proc_f unded_12+ 
lrpproc  _proc_f unded_13+lrpproc_proe_f unded_14+ lrpproc _proc_funded_13+ 
lrpproc_proc_funded_16+ 

lrpproc_proc_unf  unded_l-*-lrpproc_proc_unf  unded_2+lrpproc_proc_unf  unded_3+ 
lrpproc _proc_unf unded_4+ lrpproc _proc_unf unded_9+lrpproc_proc_unf unded_6+ 
lrpproc  _proc_unfunded_7+ lrpproc  _proc_unfunded_8+lrpproc_proc_unfunded_9+ 
lrpproc_proc_unf  unded_10-«-lrpproc_proc_unfunded_l  l+lrpproc_proc_unf unded_12+ 
lrpproc_proc_unfunded_l 3+ lrpproc  _proc_unf unded_l4+lrpproc_proc_unf unded_l 3+ 
lrpproc_proc_unfunded_16 

if  tot“0  then  print  column  93. ”<  Not  Scheduled  >"i 

else  if  csscontrol_ssn_.no  siatches  "4e"  then  print  column  93.  "<  Stock  Funded  >"i 
else  begin 

if  lrpproc_proc_funded_l>0  then  begin 

if  lrpproc_proc_unf unded_l>0  then  print  else  print  "**e#"i  end 

else  if  lrpproc_proc_unfunded_l>0  then  print  “ - Hi  else  print  M  mi 

if  lrpproc_proc_f unded_2>0  then  begin 

if  lrpproe_proc_unfunded_2>0  then  print  "e-e-"»  else  print  "#*#*";  end 

else  if  lrpproc_proc_unfunded_2>0  then  print  " - "i  else  print  "  "i 
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if  lrpproc_proc_f unded_3>0  than  begin 

if  lrpproc_proc_unfunded_3>0  then  print  **-*-“1  cite  print  "****"»  end 

else  if  Irpproc _proc_unf unded_3>0  then  print  “ - “>  else  print  “  **i 

if  lrpproc_proc_funded_4>0  then  begin 

if  lrpproc_proc_onfonded_4>0  then  print  else  print  “****"»  end 

else  if  lrpproc_proc_onf unded_4>0  then  print  " - else  print  “  *i 

if  lrpproc_proc_funded_9>0  then  begin 

if  lrpproc_proc_unf unded_9>0  then  print  else  print  “#*#**i  end 

else  if  lrpproe_proc_unf unded_9>0  then  print  “ - “i  else  print  "  *i 

if  lrpproc_proc_funded_6>0  then  begin 

if  Irpproc jroc_unfonded_6>0  then  print  else  print  “****"i  end 

else  if  lrpproc_proc_unfonded_A>0  then  print  " - ">  else  print  "  “i 

if  lrpproc_proc_funded_7>0  then  begin 

if  Irpproc _proc_unf unded_7>0  then'  print  “#-e-*i  else  print  Me#**“i  end 

else  if  lrpproc_proc_unfunded_7>0  then  print  " - "t  else  print  "  "i 

if  lrpproc_proc_fonded J9>0  then  begin 

if  lrpproc_proc_onfunded_8>0  then  print  else  print  "e***"i  end 

else  if  lrpproc_proc_unfunded_8>0  then  print  “ - m>  else  print  "  *i 

if  lrpproc_proc_funded_9>0  then  begin 

if  lrpproc_proc_unf unded_9>0  then  print  else  print  "****"i  end 

else  if  lrpproc_proc_unf unded_9>0  then  print  " - “i  else  print  “  "i 

if  Irpproc _proc_f unded_10>0  then  begin 

if  lrpproc_proc_unfunded_10>0  then  print  "  else  print  “ee*#"i  end 

else  if  lrpproe_proc_unfunded_10>0  then  print  " - ">  else  print  "  *i 

if  lrpproc_proc_f unded_l 1>0  then  begin 

if  lrpproc_proc_un#unded_l 1>0  then  print  else  print  "***#“(  end 

else  if  lrpproc_proc_unfunded_ll>0  then  prtnt  " - "»  else  print  ■  “i 

if  Irpproc _j>roc_f  unded_12>0  then  begin 

if  lrpproc_proc_unf unded_12>0  then  print  "*-e-*j  else  print  "**##"»  end 

else  if  Irpproc_jproc_unfunded_12>0  then  print  " - ">  else  print  “  "i 

if  lrpproc_proc_funded_13>0  then  begin 

if  lrpproc_proc_onfonded_13>0  then  print  "*-*-•«  else  print  "*#**“/  end 

else  if  lrpproc_proc_unfunded_13>0  then  print  ■ - "i  else  print  *  "i 

if  Irpproc _proc_f unded_14>0  then  begin 

if  lrpproc_proc_unfunded_14>0  then  print  *i  else  print  ”****"1  end 

else  if  Irpproc _proc _unfunded._14>0  then  print  " - ">  else  print  **  "> 
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If  lrpproc _proc_f undid_13>0  thin  bigln 

if  lrpproc_proc_unf undid_18>0  thin  print  iln  print  "***i"i  md 

else  if  lrpproc_proc_unf undid_13>0  thin  print  " - "i  iln  print  *  “i 

if  lrpproc_proc_fundid_16>0  thin  bigin 

if  lrpproc_proc_unf undid_16>0  thin  print  iln  print  "****”i  and 

•ill  if  lrpproc _proc_unf undid_16>0  thin  print  " - ”i  iln  print  H  “i 

•  nd 

print  coluiin  138,  “1“ 

aftir  group  of  csscontrol_ssn_.no 
print  “I". 8  spacm 
if  ssndif_dif_l>0  thin  bigin 

print  »indif_dlf_l  using  "  NH’i 

if  ssndif  _con_10”  "  thin  print  ssndif_con_l»  ilsi  print  "  "i  and 

if  ««ndif_dif _8>0  thin  bigln 
print  ssndif_dif_2  using  " 

if  ssndif_con_20"  "  thin  print  ssndif_con_8i  ilsi  print  *  " i  md 

if  ssndif_dif_3>0  thin  bigin 
print  ssndif_dif_3  using  " 

if  ssndif  _con_30“  "  thin  print  ssndif _con_3f  ilsi  print  "  "i  md 

if  ssndif_dif_4>0  thin  bigin 

print  ssndif_dif_4  using  "  ####") 

if  ssndif_con_40M  *  thin  print  •-"«  ssndif _con_4i  ilsi  print  "  ”>  and 

if  ssndif_dif _9>0  thin  bigin 

print  ssndif_dif_3  using  “  ****"> 

if  ssndif_con_3<>"  "  thin  print  ssndif  _con_3i  ilsi  print  "  "i  md 

if  ssndif_dif_6>0  thin  bigin 

print  ssndif_daf_6  using  "  #•##*( 

if  ssndif_con_60"  "  thin  print  ssndlf_con_6i  ilsi  print  "  "i  md 

if  ssndif_dif_7>0  thin  bigin 

print  ssndif_dif_7  using  "  •#**") 

if  ssndif_con_70"  "  thin  print  ssndif_con_7i  ilsi  print  "  "i  and 

if  ssndif  dif  8>0  thin  bigin 
print  ssndif _dif_8  using  " 

if  ssndif_conJBO"  "  thin  print  ssndif _con_8»  ilsi  print  "  ">  md 

print  coluiin  67.  "  I  ",  column  132.  "I" 

•nd 
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2.  Commodity  Profile  Report  Generator  -  Part  1 
/u/plan/rpt. Linda/ comprol 

This  report  Is  similar  to  defprol  and  sysprol  described  earlier.  Here,  however,  the  ROTE 
funding  data  Is  accumulated  by  commodity  line  rather  than  by  deficiency  or  system.  Values  are  output 
In  ASCII  format  for  loading  Into  the  data  base  file  comprol.  This  program  is  called  automatically  by 
the  shell  /u/plan/db/compro. 
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<  Commodity  Profile  Report 

database  mat_pian  end 

Generator  part  1.  Works  by  Command} 

define 

variable 

vb 

type 

character  length  1 

variable 

f8S_tb 

type 

long 

variable 

uB9_tb 

type 

long 

variable 

f8S_dev 

type 

long 

variable 

o89_dev 

type 

long 

variable 

fB6_tb 

type 

long 

variable 

u86_tb 

type 

long 

variable 

f86_dev 

type 

long 

variable 

u86_dev 

type 

long 

variable 

f87_tb 

type 

long 

variable 

u87_tb 

type 

long 

variable 

f87_dev 

type 

long 

variable 

u87_dev 

type 

long 

variable 

f  88_tb 

type 

long 

variable 

u88_tb 

type 

long 

variable 

f88_dev 

type 

long 

variable 

u88_dev 

type 

long 

variable 

f89_tb 

type 

long 

variable 

u89_tb 

type 

long 

variable 

f89_dev 

type 

long 

variable 

u89_dev 

type 

long 

variable 

f 90_tb 

type 

long 

variable 

u90_tb 

type 

long 

variable 

f90_dev 

type 

long 

variable 

u90_dev 

type 

long 
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variabla 

f91 

_tb 

tgpa 

long 

var iabla 

u9 1 

_tb 

tgpa 

long 

variabla 

P91 

_dav 

tgpa 

long 

variabla 

u91 

_dav 

typa 

long 

variabla 

*92 

_tb 

tgpa 

long 

variabla 

u92 

_tb 

typa 

long 

variabla 

*92 

_dav 

tgpa 

long 

var iabla 

u92 

_dav 

tgpa 

long 

end 

output 

top  margin  O 
laPt  margin  O 
paga  langth  32000 
raport  to  "comprol.  out" 
and 

raad  into  b 

caacontrol_aan_no 
aandaac_major_ayatam  aandaac_cmd 
joining  caacontroi_aan_.no  “  aandaac_aan_no 
and 

raad  into  c 
b 

wkpkg_no_indx  wkpkg_aubcat 

ukp kg_f und_grO  wkpkg_fund_gr 1  wkpkg_f und_gr2  wkpkg_f und_gr3 
»,kpkg_#und_gr4  wkpkg_fund_gr3  a»kpkg_f und_gr6  ukp kg_fund_yr7 
“•,P'>9_unfund_grO  «ikpfcg_unfund_gr i  wkpkg_unf und_yr2  ukpkg_unfund_gr3 
ukp kg_unfund_yr4  ukpkg_unPund_gr9  wkpkg_unfund_gr<>  wkpkg_unf und_gr7 
joining  b.  caacontrol_aan_no  ■  patudol ink_san_no 
and  paaudol ink_wkpkg_ind>  ■  ukp kg_no_ind * 

and 

sort  b<j  aandaac_cmd  aandaac_ma jor_agatem  ukpkg_cmd  ukpkg_cat  uikpkg_no  and 
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format 

before  group  of  **ndacc_ma jor_agatam 


let 

f89 

tb  a 

0 

let 

u89 

tb  ■ 

0 

let 

f89_dev 

-  0 

let 

uB9_dev 

-  O 

let 

f 8A_tb  * 

O 

let 

u86  tb  ■ 

O 

let 

f86_dev 

-  0 

let 

uB6  dev 

«  0 

let 

f87  tb  = 

0 

let 

u87_tb  - 

O 

let 

f  87 

dev 

*  0 

let 

u87  dev 

-  0 

let 

f 88  tb  - 

0 

let 

u88_tb  - 

0 

let 

f  88 

_dev 

-  O 

let 

u88 

dev 

-  0 

let 

f89 

tb  - 

0 

let 

u89 

tb  - 

o 

let 

f89 

_dev 

=  0 

let 

u89 

_dev 

■  0 

let 

f  90 

tb  « 

0 

let 

u90 

"tb  - 

0 

let 

f  90 

_dev 

-  0 

let 

u90 

dev 

■  0 

let 

f  91 

"tb  = 

0 

let 

u91 

tb  - 

0 

let 

f91 

_dev 

-  0 

let 

u91 

.dev 

-  0 

let 

f92 

"tb  - 

0 

let 

u92 

tb  - 

0 

let 

f92 

_dev 

-  0 

let 

u92 

dev 

»  o 

T~~jr 


-  ; - 
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before  group  of  u 
if  ukp  kg_«ubcat- 
let  f8S_tb  = 
let  fB6_tb  - 
let  f87_tb  = 
let  f88_tb  - 
let  fB9_tb  *» 
let  f 90_tb  *> 
let  f  91_tb  = 
let  f92_tb  - 
let  uB3_tb  » 
let  uB6_tb  - 
let  u87_tb  ** 
let  u8B_t b  - 
let  u89_tb  - 
let  u90_tb  ■ 
let  u91_tb  = 
let  u92_tb  ** 
end 

alee  if  ukpkg_s 
let  fB3_dev  - 
let  f86_dev  - 
let  fB7_dev  - 
let  f8B_dev  *■ 
let  f89_dev  - 
let  f90_dev  • 
let  f 91_dev  - 
let  f92_dev  - 
let  u85_dev  “ 
let  u86_dev  “ 
let  u87_dev  ** 
let  u88_dev  *> 
let  u89_dev  “ 
let  u90_dev  ■ 
let  u91_dev  *• 
let  u92  dev  ” 


kpkgjno 

**"6.1“  or  wkpkg_BUbc*t*"6.  2“  or  wkpkg_»ubcat»“6.  3A"  then  begin 

f85_tb  ♦  ukpkg_fund_yrO 

f86_tb  +  ukpkg_f und_yr 1 

f87_tb  +  wkpkg_fund_yr2 

fB8_tb  +  wkpkgf und_gr3 

f89_tb  +  ukpkg_#und_yr4 

f90_tb  +  Wkpkg_fund_yr3 

f91_tb  +  ukpkg_f und_gr6 

f92_tb  +  wkpkg_fund_yr7 

uB3_tb  +  ukpkg_unf und_yrO 

u86_tb  +  ukpkg_unfund_yrl 

u87_tb  ♦  ukpkg_unfund_yr2 

u88_tb  +  wikpkg_un#und_yr3 

u89_tb  +  wkpkg_unfund_yr4 

u90_tb  +  ukp kg_unfund_yr3 

u91_tb  +  uikpkg_unfund_yr6 

u92_tb  ♦  ukp kg_unf und_yr7 


ubcat*>"6. 

fB3_dev 

f86_dev 

fB7_dev 

fB8_dev 

f89_dev 

f90_dev 

f91_dev 

f92_dev 

u85_dev 

u86_dev 

uB7_dev 

uB8_dev 

u89_dev 

u90_dev 

u91_dev 

u92_dev 


3B"  or  wkpkg_eubcat**"6.  4"  or  wkpkg_eubcat“"6.  7"  then  begin 
+  ukpkg_fund_yrO 
+  ukpkg_fund_yrl 
+  ukpkg_fund_yr2 
+  wkpkg_fund_yr3 
+  wkpkg_fund_yr4 

♦  ukpkg_fund_yr3 
+  ukpkg_fund_yr6 

♦  ukpkg_fund_yr7 

♦  ukp kg_unf und_yrO 

♦  ukpkg_unfund_yr 1 

♦  ukpkg_unfund_yr2 

♦  uk p kg_unf und_yr3 

♦  ukpkg_unfund_yr4 
+  ukpkg_unfund_yr5 
+  ukpkg_unf  und..yr6 
+  ukpkg_unfund_yr7 


■  | 

v  V\v 

t-  * 


*;•  V  >/  ».  te  t 
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3.  Commodity  Profile  Report  Generator  -  Part  2 
/u/ pi an/rpt. Linda/ compro2 

This  report  Is  similar  to  defpro2  described  earlier.  Here  the  funding  profile  Is  presented 
by  commodity  line  rather  than  by  deficiency.  ROTE  values  from  comprol  are  combined  with  accumulated 
system  procurement  funding  amounts  to  produce  a  vertical  bar  chart  of  funding  levels  for  each 
conmodlty  line.  It  Is  called  automatically  by  the  shell  /u/plan/db/compro. 
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<  Commodity  Profile  Report  Generator  > 

database  mat_plan  end 

define 


paramCl 1 

pno 

type 

integer 

variable 

counter 

type 

integer 

variable 

tf 

type 

float 

variable 

i 

type 

Integer 

variable 

> 

type 

long 

variable 

tdiv 

type 

long 

variable 

f  orml 

type 

character 

length 

10 

variable 

f  orm2 

type 

character 

length 

10 

variable 

uf  « 

type 

character 

length 

3 

variable 

uf  d 

type 

character 

length 

3 

variable 

uf  p 

type 

character 

length 

3 

variable 

f  » 

type 

character 

length 

3 

variable 

fd 

type 

character 

length 

3 

variable 

*P 

type 

character 

length 

3 

variable 

f83_proc 

type 

long 

variable 

u85_proc 

type 

long 

variable 

f 86 _proc 

type 

long 

variable 

uB6_proc 

type 

long 

variable 

f 87_proc 

type 

long 

variable 

uB7_proc 

type 

long 

variable 

f88_proc 

type 

long 

var table 

u88 _pr oc 

type 

long 

variable 

f89_proc 

type 

long 

variable 

uB9_proc 

type 

long 

variable 

f90_proc 

type 

long 

variable 

u90_proc 

type 

long 

variable 

f91 _proc 

type 

long 

variable 

u91_proc 

type 

long 

variable 

f92  _proc 

type 

long 

variable 

u92  _proc 

type 

long 
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var iab  le 

f  93 _proc 

type 

long 

variable 

u93_proc 

type 

long 

variable 

f94_proc 

type 

long 

variable 

u94_proc 

type 

long 

variable 

#9S_proc 

type 

long 

var iab le 

u9S  _proc 

type 

long 

var table 

f96  __proc 

type 

long 

variable 

u96_proc 

type 

long 

variable 

f97_proc 

type 

long 

variable 

u97_proc 

type 

long 

variable 

fV8_proc 

type 

long 

variable 

u98  _proc 

type 

long 

variable 

f 99 _proc 

type 

long 

variable 

u99 _proc 

type 

long 

variable 

fOO_proc 

type 

long 

variable 

uOO _proc 

type 

long 

end 

output 

lift  margin  O 
right  margin  132 
report  to  Hcompro2.  out** 
end 

read  into  a 

cs»control_»»n_no  decontrol  _type 
e*ndeec_ma jor_egetem  eendeec_cmd 
comprol 

uiherr  comprol_c»d  «  eendeec_cmd  or  comprot_cmd  *•  "  “ 
joining  ceecontrol_een_no  “  ««nde*c_e»n_no 

and  e endee c_ma jor_»yetem  ■  optional  co»prol_commodity 

and 

read  into  b 

a 

lrpproc_proc_funded_l  lrpproc_proc_f unded_2  lrpproc_proe_funded_3 
lrpproc_proc_f unded_4  1  rppruc  __proc_f  unded_3  lrpproc_proc_funded_6 
lrpproc_proc_funded_.7  Irpproc  __proc_f  unded_.b 
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lrpproc_proc 
lrpproc_proc 
lrpproc  _proc 
Ir pproc_proc 
lrpproc_proc 
lrpproc_proc 
lrpproc_proc 
lrpproc_proc 
lrpprocjroc 
joining  a.  c 
end 


_funded_9  lrpproc_proc_fonded_10  lrpproc _proc_f unded_l 1 
_fonded_12  lrpproc_proc_fundedJ3  lrpproc_proc_f unded_14 
_funded_13  lrpproc _pr oc_f unded_16 

_unfunded_l  lrpproc_proc_unfunded_2  lrpproc_proc_unf und»d_3 
_unfunded_4  lrpproc_pr oc_unf unded_3  lrpproc_proc_unf unded_6 
_unf unded_7  lrpproc_proc_unf unded_B 

_unfunded_9  lrpproc _proc_unf unded_10  lrpproc_proc_unf onded_l 1 
_unfunded_12  lrpproc_pr oc_unf unded_13  lrpproc_proc_unfunded_14 
_unfunded_13  lrpproc _proc_unf und*d_16 
iicontrol_ftn_no  ■  optional  lrpproc_scn_.no 


sort  by  ssndesc_cmd  stndesc_ma jor_system  csscontrol_ssn_no  end 


format 


page  header 

print  column  47, *******  UNCLASSIFIED  ******* 
skip  2  lines 


page  trailer 
skip  X  line 

print  column  47, *******  UNCLASSIF  IE  D 

skip  1  line 

print  column  60, pno 

let  pno  m  pno+1 


before  group  of  ssndesc_ma jor_sy stem 
skip  to  top  of  page 

print  40  spaces,  ssndesc_ma jor  system  clipped, 

*  COMMODITY  LINE  FISCAL  SUMMARY  FOR  ",  ssndesc.cmd 
skip  1  line 


let  fB3_proc  ”  0 
let  u83_proc  m  O 
let  f86_proc  »  O 
let  u86 _proc  *■  0 
let  f87_proc  »  0 
let  u87_proc  »  0 
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let  f 88 _proc  *  0 
let  u88_proc  «0 
let  #89_proc  ■  0 
let  089 _proc  *  O 
let  #90_proc  “  O 
let  u90 _proc  »  O 
let  f91 _proc  “  O 
let  u91_proc  ”  O 
let  #92_proc  -  O 
let  u92_proc  ■  O 
let  f93_proc  »  O 
let  u93_proc  “  O 
let  #94_proc  “  o 
let  u94_proc  -  0 
let  #99_proc  “  O 
let  u99_proc  *  O 
let  f96jroc  ”  0 
let  u96 _proc  -  O 
let  #97_proc  »  O 
let  u97 _proc  ■  0 
let  #98_proc  *  O 
let  u9B_proc  »  O 
let  #99_proc  ■  O 
let  u99 _j»roc  *»  0 
let  #00_proc  “  0 
let  uOO_proc  *  0 

e#ter  group  of  ciecontrol_een_no 

let  #83_proc  »  #89 _proc-*-lrpproc_proc_#unded_l*1000 
let  u83_proc  “  u89_proc+lrpproc_proe_un#unded_l*1000 
let  #86_proc  *  #86 _proc+lrpproc _proc_#unded_2*1000 
let  oB6_proc  **  uB6_proc+lrpproc _proc_un#onded_2*1000 
let  #87_proc  “  #87_proc+lrpproc_proc_f unded_3*1000 
let  u87_proc  “  uB7 _proc+lrpproc_proc_un#unded_3*1000 
let  #88_proc  “  #B8_proc+lrpproc _proc_#unded_4*1000 
let  u88_proc  "  u88_proc+lrpproc_proc_unf unded_4*1000 
let  f89_proc  "  #89_proc+lrpproc_proc_#unded_9*1000 
let  u89_.proc  ■»  u89_proc+Irpproc_proc_un#unded_.9*1000 
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let  f90_proc  “  f90_prqc+lrpproc _proc_f unded_6*1000 
let  u90_proc  =  u90_proc+lrpproc _proc_unf unded_6*I000 
let  f91_proc  *■  f91_proc+lrpproc _proc_f unded_7*1000 
let  u91_proc  =  u91_proc+lrpproc _proc_unf unded_7*1000 
let  f 92_pr oc  -  f92 _jiroc  +  lrpproc_jiroc_f  unded_8*1000 
let  u92_jproc  ”  u92_proc+lrpproc_proc_unfunded_B*1000 
let  f93_jiroc  «*  f93_proc+lrpproc_proc_funded_9*1000 
let  u93_proc  “  u93 _jiroc+lrpproc_proc_unfunded_9*1000 
let  f94_proc  «  f94_proc+lrpproc_proc_funded_10*1000 
let  u94_proc  *■  u94_proc+lrpproc jrot_unf unded_10*1000 
let  f 93_proc  =  f93_proc+lrpprqc_proc_funded_l 1*1000 
let  u93_proc  “  u93 _jirqc+lrpprqc_proe_unfund*d_ll*1000 
let  f96_proc  ■  f96_proc+lrpproc_proc_funded_12*1000 
let  u96_jproc  «  u96 _proc-Hrpprqc_proc_unfund#d_12*1000 
let  f 97_pr oc  -  #97_proc+lrpproc_proc_f und#d_J3*1000 
let  u97_proc  =  u97_proc+lrpproc_proc_unf und*d_13*1000 
let  f98_proc  »  f98_proc+lrpproc_proc_funded_14*1000 
let  u98_proc  «  u98_proc+lrpproc_proc_unf unded_14*1000 
let  fWjrac  «  f99_proc  +  lrpproc_ppoc_fond#d_13*1000 
let  o99_proc  “  u99_proc+lrpproc_proc_unf unded_l 3*1000 
let  fOO_proc  ■  fOO _proc+lrpproc _proc_f unded_16*10OO 
let  uOO_proc  »  uOO_proc-*-lrpproc_proc_unf  unded_16*1000 

after  group  of  iindeic juj«r_iv<ti* 
let  f  oral  »  "«#••*»»••  " 
let  forms  -  "<((<(<<<#)" 
let  ufx  -  "X — " 
let  uf d  -  “D — ” 
let  uf p  ■  "P — " 
let  f*  -  "XXX" 
let  fd  -  "ODD” 
let  fp  -  "PPP" 
let  tf  -  O 

If  c_f83_tb*c_u83_tb  >  tf  then  let  tf  *■  c_fB3_tb+c_uBS_tb 
if  c_f8S_dev+c_uB3_dev  >  tf  then  let  tf  «  c_f83_dev+c_u83_dev 
if  < f83_proc*u83_proc > /10  >  tf  then  let  tf  =  < f 83_pr oc+uB3_proc ) 
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» 

* 


if  c_f86_tb+c_uB6_tb  >  tf  then  1st  tf  ” 
if  c_f86_dev+c_i»86_dev  >  tf  then  let  tf 
if  ( f  86 _proc+u86_proc > / 10  >  tf  then  let 

if  c_f87_tb+c_o87_tb  >  tf  then  1st  tf  - 
if  c_fB7_dev+c_u87_dev  >  tf  then  let  tf 
if  (f87_proc+o87_proc)/10  >  tf  then  let 

if  c _f B8_tb+-c_o88_tb  >  tf  then  let  tf  «• 
if  c_f88_dev-*-c_u88_dev  >  tf  then  let  tf 
if  < f88_proc+u88_proc ) /10  >  tf  then  let 

if  c_f89_tb+e_uB9_tb  >  tf  then  let  tf  - 
if  c_fB9_dev+c_u89_dev  >  tf  then  let  tf 
if  < f 89 _jiroc+u89 _proc  )/10  >  tf  then  let 

if  c _f 90_t b  >e _u90_t b  >  tf  then  let  tf  « 
if  c_f90_dev+c_u90_dev  >  tf  then  let  tf 
if  <f90_proc+u90_proc)/10  >  tf  then  let 

if  c_f91_tb+c_u91_tb  >  tf  then  let  tf  - 
if  c_f91_dev+c_u9l_dev  >  tf  then  let  tf 
if  ( f9l_proc>u91_proc > / 10  >  tf  then  let 

if  c_f92_tb+c_u92_tb  >  tf  then  let  tf  - 
if  c_f92_dev+c_u92_dev  >  tf  then  let  tf 
if  < f92_proc+u92 _proc)/10  >  tf  then  let 


if  ( f93_proc+u93 _proc>/10  > 
if  <f94 _proc+u94_proc >/10  > 
(f99_proc+o93_proc >/10  > 
(  f96_jppoc+u96_proc  >  710  > 
< f97_ppoc+u97_proc J /tO  > 
< f98_proc+u98_proc > 710  > 
( f99_ppoc+u99_proc ) /10  > 
( f00_proc+u00_proc ) /10  > 


'  "  '  f.  ‘  . 


c  _f  86_tb  «-c  _u86_tb 

“  C_f B6_d*v+c_u86_dev 

tf  ■  < f B6_prot+u86_proc >/10 

c_f87_tb+c_uB7_tb 

■  c_f87_dev+c_u87_dev 

tf  *  ( f B7 _proe+u87 _proc)/10 

c  _f 88_t  b  *c _u88_t  b 

“  c_f8B_dev+c_u8B_dev 

tf  ■  (f88_proc+uB8_proc >/10 

c  _f  B9_t  b +c  _uB9_t  b 

*  c_f89_dev+c_uB9_dev 

tf  “  (f89_proc+uB9_proc >/10 

c_f 90_tb  +c  _u90_tb 

■  c_f90_dev+c_u90_dev 

tf  ■  (f90_proc+u90_proc>/10 

c_f91_tb+c_o91_tb 

-  c_f91_dev+c_u91_dev 

tf  ■  (f91_proc-»o91  _proc>/10 

c  _f  92_t  b +c  _u92_tb 

■  c_f92_dev+c_u92_dev 

tf  ■  (f92_proc+u92_proc)/10 


tf  then  let 
tf  then  let 
tf  then  let 
tf  then  let 
tf  then  let 
tf  then  let 
tf  then  let 
tf  then  let 


83 


tf 

tf 

tf 

tf 

tf 

tf 

tf 

tf 


<f93_procPu93  _proc>/10 
( f94_proc+u94_proc ) /10 
C f9S_proc+u9S _proc)/10 
( f96_proe+u96_proc  >/10 
( f97_proc+u97 _proc  >/10 
<  f98_proc+o98_prpc )/10 
<f99_proc+u99_proc>/10 
(  fOO _j>roc  +  uOQ_proc  >/10 


>  x-£iW-  -  • 

»  m  ,  t  *  » 
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let  tf  «  tf*0.  8 
skip  3  lines 
let  x  =  19000 

if  tf>x  then  let  x  *  30000 

if  tf>x  then  let  x  =  79000 

if  tf>x  then  let  x  -  190000 

if  tf>x  then  let  x  »  300000 

if  tf>x  then  let  x  -  790000 

if  tf>x  then  let  x  -  1900000 

let  xdiv  »  x/30 
for  I  •  I  to  30  do  begin 

if  i-1  or  1-11  or  i-21  then  print  4  spaces. x/1000  using 
if  1-19  then  print  "ROTE  <*  1M)“» 
if  i-17  then  print  "PROC  (*10Hl"i 
print  column  13. *  I "i 

if  c_f89_tb  +  c_u89_tb  >*  x  then  begin 

if  c_f89_tb  >-  x  then  print  til  else  print  ufx.  end 
else  print  "  "i 

if  c_f89_dev  +  c_u89_dev  >-  x  then  begin 

if  c_f89_dev  >-  x  then  print  fdi  else  print  ufdi  end 
else  print  "  "» 

if  f89jroc  +  u89_proc  >«  xeio  then  begin 

if  fB9_jproc  >-  x*10  then  print  fpi  else  print  ufpj  end 
else  print  "  "i 
print  1  space. 

if  c,_fB6_tb  +  c_uB6_tb  >-  x  then  begin 

if  c_fB6_tb  >-  i  then  print  fxi  else  print  ufxi  end 
else  print  "  "i 

if  c_f86_dev  +  c_u86_dev  >-  x  then  begin 

if  c_f86_dev  >-  x  then  print  fd<  else  print  uf di  end 
else  print  "  "i 

if  f 86__proc  +  u86_proc  >■  x*10  then  begin 

if  fB6_proc  >-  xeio  then  print  'fpi  else  print  ufp.  end 
else  print  H  "i 
print  1  spacei 

if  c_f87_tb  ♦  c_uB7_tb  >-  x  then  begin 

if  c_f87_tb  >-  x  then  print  Px;  else  print  ufx.  end 
else  print  "  ", 
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if  c_fB7_dev  +  c_u87_dev  >■  i  than  begin 

If  c_f87_dev  >=  x  then  print  fdi  alt*  print  ufdi  and 
alaa  print  "  “i 

if  f87_proc  +  u87_proc  >«■  x*10  than  begin 

if  f87_proc  >*•  x*10  than  print  fpi  alaa  print  ufpi  and 
alaa  print  “  “i 
print  1  space; 

if  c_f88_tb  +  c_u8B_tb  >“  x  than  begin 

if  c_f88_tb  >  x  then  print  fn  alaa  print  ufxi  and 
alaa  print  “  “i 

if  c_fB8_dev  +  c_uB8_dav  >■  a  than  begin 

if  c_f88_dev  >«  x  than  print  fdi  alaa  print  ufdi  and 
alaa  print  "  “i 

if  f88_proc  *  u88_proc  >•>  xaio  than  begin 

if  f 88_proc  >»  x*10  than  print  fpi  alaa  print  ufpi  and 
alaa  print  “  "i 
print  1  apacei 

if  c_f89_tb  +  c_u89_tb  >*•  x  than  begin 

if  c_f 89_tb  >■  x  then  print  fxi  alaa  print  ofxi  end 
alaa  print  "  "i 

if  c_fB9_dev  +  c_u89_dav  >»  x  than  begin 

if  c_f89_dev  >«  x  than  print  fdi  alaa  print  ufdi  and 
alaa  print  ”  "i 

if  f89_proc  +  u89_proc  >»  x*10  than  begin 

if  f89_proc  >»  xeio  than  print  fpi  alaa  print  ufpi  end 
alaa  print  ”  “i 
print  1  apacei 

if  c_f90_tb  +  c_u90_tb  >*■  x  than  begin 

if  c_f90_tb  >«*  x  than  print  fxi  alee  print  ufxi  and 
alaa  print  “  "i 

if  c_f90_dev  ♦  c_u90_dav  >■  x  than  begin 

if  c_f90_dev  >“  x  than  print  fdi  alaa  print  ufdi  and 
alaa  print  "  "i 

if  f 90 _proc  +  u90_proc  >•=  x*10  than  begin 

if  f90_proc  >»  x*10  than  print  fpi  alaa  print  ufpi  and 
flu  print  M 
print  l  spacer 
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if  c_f91_tb  +  c_u91_tb  >=  x  th«n  begin 

if  c_f91_tb  >=  x  then  print  fxi  else  print  of x;  end 
else  print  "  Mi 

if  c_f91_dev  +  c_u91_dev  >=  x  then  begin 

if  c_f91_dev  >«  x  then  print  fdi  else  print  ufdi  end 
else  print  11  “i 

if  f91_proc  +  u91  jroc  >*■  x*10  then  begin 

if  f91_proc  >»  x*10  then  print  fpi  else  print  ufpi  end 
else  print  "  “i 
print  1  space. 

if  c_f92_tb  +  C_u92_tb  >*»  x  then  begin 

if  c_f92_tb  >“  x  then  print  fxi  else  print  ufx;  end 
else  print  "  "i 

if  c_f92_dev  c_u92_dev  >«■  x  then  begin 

if  c_f92_dev  >*•  x  then  print  fd>  else  print  ufdi  end 
else  print  "  "i 

if  f 92_proc  +  o92_proc  >■  x*10  then  begin 

if  f92_proc  >■  x*10  then  print  fpi  else  print  ufpi  end 
else  print  -  "i 
print  2  spaces! 

if  f93_proe  +  u93_proc  >■  x*10  then  begin 

if  f93_proc  >“  x*10  then  print  fpi  else  print  ufpi  end 
else  print  H  "i 
print  2  spaces! 

if  f94_proc  +  u94 _proc  >“  x*10  then  begin 

if  f94_proc  >■  x*10  then  print  fpi  else  print  ufpi  end 
else  print  "  "i 
print  2  spaces! 

if  f93_proc  ♦  u93_proc  >»  x*10  then  begin 

if  f93_proc  >**  x*10  then  print  fpi  else  print  of pi  end 
else  print  * 
print  2  spaces! 

if  f96_proc  ♦  u96_proc  >»  x*10  then  begin 

if  f96_proc  >“  x*10  then  print  fpi  else  print  ufp;  end 
else  print  *  "i 
print  2  spaces! 
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if  f97_proc  +  u97_proc  >“  x*10  then  begin 

if  f97_proc  >D  x*10  then  print  fpi  elce  print  ufpi  end 
else  print  “  “i 
print  2  spaces. 

if  f9B_proc  +  u9B_proc  >«  x*iO  then  begin 

if  f98_proc  >**  x*IO  then  print  fpi  else  print  ufpi  end 
else  print  “  "i 
print  2  spaces! 

if  f99_proc  +  u99_proc  >=  x*10  then  begin 

if  f99 _proc  >=  x»10  then  print  fpi  else  print  ufpi  end 
else  print  “  "i 
print  2  spaces! 

if  fOO_proc  +  uOO_proc  >“  x«10  then  begin 

if  fOO_proc  >■=  x*10  then  print  fpi  else  print  ufpi  end 
else  print  “  “i 
print 

let  x  =  x-xdiv 
end 

print  13  spaces! 

for  i  -  14  to  132  do  print  "-"! 

print 

print  16  spaces. "1983“,  6  spec es . “ 19B6" . 6  spaces. “19B7",  6  spaces. 

"  1988".  6  spaces.  "1989".  6  spaces.  “  1990”.  6  spaces.  "  1991 ",  6  spaces,  “1992", 

“  !  93  94  99  96  97  98  99  00" 

print  column  94. "I" 

print  "Tech  Base  ",c_fB9_tb  using  forml,  c_f86_tb  using  forml, 

c_fB7_tb  using  f orml. c_f88_tb  using  forml, 
c_fB9_tb  using  f orml.  c_f90_tb  using  form!. 
c_f91_tb  using  forml.  c_f92_tb  using  forml, column  94."!" 
print  "  <“.  f  x,  "/“.  uf  x.  ") 

-c_uB5_tb  using  form2> -c_u86_tb  using  form2. 

-c _u87_tb  using  f orm2,  -c_u88_tb  using  form2, 

-c_uB9_tb  using  f orm2,  -c_u90_tb  using  form2. 

-c_u91_tb  using  for«2. -c_u92_tb  using  form2. column  94."!“ 
print  column  94. “1“ 

print  “Development  ”,  c_f8S_dev  using  forml.  c_f86_dev  using  forml, 

c_f87._dev  using  forml.  c_f88_dev  using  forml. 
c_fB9_dev  using  forml.  c_f90  dev  using  forml. 
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c_f91_dev  using  forml ,  c_f92_dev  using  forml, column  94."! 
print  "  <",  fd.  ufd.  ">  ", 

-c_u83_dev  using  f orm2, -c_u86_dev  using  form2, 

-c_u87_dev  using  form2> -c_u88_dev  using  foroi2, 

-C_u89_dev  using  form2. -c_u90_dev  using  form2, 

-C_u91_d*v  using  form2. -c_u92_dev  using  form2. column  94,  “ I ” 
print  column  94, " I “ 

print  “Procuremant  ",  f85_proc  using  f orml ,  f 86_proc  using  forml, 
f87_proc  using  forml,  fB8_proc  using  forml, 
fB9_proc  using  forml,  f 90 _j>roc  using  forml, 
f91_proc  using  forml,  f92_proc  using  forml, 
column  94, “ I  Sea  Out  Year  Procurement" 

print  "  <",  fp,  «/*%  ufp,  '•)  “, 

-u83_proc  using  f orm2,  -u86 _proc  using  form2, 

-u87_proc  using  foratfl. -u8B_proc  using  form2, 

-u89 _proc  using  form2, -u90_proc  using  form2, 

-u91 _proc  using  f orm2, -u92 _proc  using  form2, 
column  94, "I  Funding  Levels  Below" 

print  column  94,  ■'  I  " 
print  34  spacesi 
for  i=33  to  132  do  print 
print 

print  56  spaces, "1993", 6  spaces,  " 1994",  6  spaces, “ 1993", 6  spaces, "1996", 

6  spaces, "1997", 6  spaces, "1998". 6  spaces, "1999", 6  spaces, "2000" 
skip  1  line 

print  29  spaces, "Procurement  (Out  Years)”, 

f93_proc  using  forml, f94_proc  using  forml, 
f93_proc  using  forml, f96 _proc  using  forml, 
f97_proc  using  forml,  f9B _proc  using  forml, 
f99_proc  using  forml,  fOO_proc  using  forml 
print  32  spaces, -u93_proc  using  form2. -u94 jjroc  using  form2, 

-u9S_proc  using  form2, -u96_proc  using  form2, 

-u97_proc  using  form2, -u98_proc  using  form2. 

-u99_proc  using  form2,  -uOO_proc  using  form2 


en 


d 
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I  4 .  Commodity  Index 

/u/ plan/rpt. Linda/coni ndex 

|  This  brief  report  produces  a  simple  and  straightforward  listing  of  the  command-commodity 

I  line  combinations  for  use  as  an  Index  to  the  report.  The  page  number  locations  are  marked  with  three 

.  hyphens  “ — After  running  this  report  and  the  commodity  summary  report,  the  actual  page  numbers 

k  1  should  be  substituted  for  the  hyphens  using  the  editor  (vl). 

!  I 

r  Ii 


-  r 
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database  mat_plan  end 
output 

left  margin  O 
right  margin  132 
report  to  "comindex.  out" 
end 


i 

i 


r* 

r 


r 


i 


read  into  a 

ssndesc_cmd  ssndesc_ma jor_sgstem 
joining  csscontrol_ssn_no  =  ssndesc_ssn_no 
end 

sort  by  ssndesc_ma jor_system  ssndesc_cmd  end 
format 

before  group  of  ssndesc_cmd 

print  42  spaces,  ssndesc_ma jor_system> 8  spaces,  *sndesc_cmd.  10  spaces, 


page  header 

print  column  47, “eeeeee  UNCLASSIFIED  eeeeee" 
skip  3  lines 

print  column  44,  "COMMODITY  LINE  INDEX  IN  ALPHABETICAL  ORDER" 
skip  3  lines 

print  40  spaces, "COMMODITY  LINE". 6  spaces, "COMMAND”, 10  spaces, "PAGE  NUMBER" 
skip  2  lines 

page  trailer 
skip  2  lines 

print  column  47,  "eeeeee  UNCLASSIFIED  eeeeee" 
skip  1  1 ine 

print  62  spaces.  "B-".  pageno  using  "###" 
end 
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C.  PROJECT  REPORTS 

1  •  Project  Summary 

/u/plan/rpt .Llnda/peproj 

This  report  produces  a  funding  summary  for  each  CSS  funded  project  In  cssprrdte.  The 
summary  relates  projects  and  tasks  to  the  systems  which  are  addressed  by  the  ROTE  effort.  When  two 
or  more  commands  share  a  same  PE-ProJect  number,  then  two  separate  reports  are  printed.  Note  that 
this  report  uses  the  "Input"  statement  to  get  the  starting  page  number  from  the  standard  Input  file. 
The  other  reports  In  this  document  get  the  starting  page  number  as  a  parameter  to  the  acego  command 
line. 
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<  PE  -  PHQJ  summary  > 
database  mat_plan  end 
define 

variable  evalcount  type  integer 
variable  pagecount  type  integer 
variable  linecount  type  integer 
variable  pno  type  integer 

end 


‘Please  enter  the  starting  page  number  > 


input 

prompt  for  pno  using 
end 

output 

right  margin  132 
left  margin  O 
report  to  "peproj. out" 
end 


head  into  b 

proj_ind*  proj_title 

pro4_fund_0  proj_fund_l  proj_fund_2  proj_fund_3 
proj_fund_4  proj_fund_9  proj_fund_6  proj_fund_7 
pro j_unfund_0  pro j_unf und_l  pro j  _unf und_2  pro j_unf und_3 
pro j_unfund_4  pro j_unf und_S  pro j_unf und_6  pro j_unf und_7 
task_.no  task_title 

task_fund_0  task_fund_l  task_fund_2  task_fund_3 
task_fund_4  task_fund_S  task_fund_6  task_fund_7 
task_unfund_0  task_unfund_l  task_unf und_2  task_unf und_3 
task_unfund_4  task_unfund_5  task_unf und_6  task_unf und_7 
•**|P||#_no_ind» 

where  cssprrdte_*lss_area  «  "CSS" 
joining  cs*prrdte_proj_ind*  »  proj_ind« 
and  proj_ind«  «■  task_proj_.ind» 
and  ta*k_no_ind»  **  optional  wkpkg_task_ind« 

end 
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raid  into  c 

cs*control_**n_no 
lrpproc_*sn_ti t la 

joining  cs*control_**n_no  »  lrpproc_**n_no 
and 

road  into  a 
b 
c 

joining  b.  ukpkg_no_ind«  «  optional  paeudol ink_ukp kg_ind « 
and  psaudol ink_aan_.no  «  optional  c.  c«ccontrol_aan_no 

end 

sort  by  proj_pa  proj_no  taak_no  c»»control_«*n_no  and 
format 

page  header 

print  column  47. “***#*#  UNCLASSIFIED  eeeeee' 
akip  2  line* 

print  8  ipacai.  "COMMAND:  M.  projcmd. 

8  apace*. “PROJECT.  ".proj_pe>2  apace*. pro j_no, 
to  apace*. “TITLE:  pro j_ti tie  clipped) 

if  pagecount-1  then  print  "  (Continued ) "  elte  print 
skip  2  line* 

print  "  - 


print  “I". 19  apacea, "TASKS/SYBTEMS".  column  79. 

“I  FY89  FY86  FY87  FYB8  FYB9  FY<?0  FY91  FY92  I 

print  "I - 

" - 1 - 

let  linecount  »  47 

page  trailer 
akip  1  line 

print  column  47,  ■•*#****  UNCLASSIFIED  ******" 

skip  1  line 

print  column  60. pno 

let  pno  ■  pno+1 


VH  V 
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before  group  of  proj_no 
let  pagecount=>0 
ship  to  top  of  page 

after  group  of  proj_no 

if  linecount  <  3  then  begin 

orint  "l“.  column  73.  “  I  coluein  132 


skip  to  top  of  page 
end 

else  begin 

print  "lH.  column  73.  "  I  column  132. 


print  “I  TOTAL  FUNDS  FOR  PROJECT:  FUNDED".  CO 
if  proj_fund_0>0  then  print  proj_fund_0  using 
if  pro j_fund_l>0  then  print  proj_fund_l  using 
if  pro j|_f und_2>0  then  print  proj_fund_2  using 
if  pro j_f und_3>0  then  print  proj_fund_3  using 
if  proj_f und_d>0  then  print  proj_fund_4  using 
if  pro j_f und_3>0  then  print  proj_fund_3  using 
if  proj_fund_&>0  then  print  proj_fund_&  using 
if  pro j_fund_7>0  then  print  proj_fund_7  using 
print  coluein  132.  "I" 

print  "I  UNFUNDED", 

if  pro j_unfund_0>0  then  print  -pro j_unf und_0 
else  print  "  "i 

if  pro j_unf und_l>0  then  print  -pro j_unf und_l 
else  print  "  "i 

if  proj_unfund_2>0  then  print  -pr o j_unf und_2 
else  print  “  "i 

if  pro j_unfund_3>0  then  print  -pro j_unf und_3 
else  print  " 

if  pro j_unf und_4>0  then  print  -proj_unf und_4 
else  print  "  "< 


luein  73.  "I"i 

"##***#  "i  else 
"•*««**  "i  else 
”««««*•  "i  else 
"#####•  "i  else 
"#»*###  "i  else 
"»*•###  "i  else 
"»#*###  "i  else 
”«*•*»*  "i  else 

column  73.  "  I  "i 
using  "((<((«)”< 

using  "((<<<«>”i 

using  "<<<<<#>"i 

using  "<<<<<#)"i 

using  "<<(((#)"! 


print 

print 

print 

print 

print 

print 

print 

print 


■ '  -  *  % 


THE  8DM  CORPORATION 


if  proj_unf und_3>0  than  print  -proj_unf und_3  using  “((<<(#>") 
clsa  print  "  "• 

if  pro j_unf und_6>0  than  print  -pro j_unf und_&  using 
also  print  “  “» 

if  pro j_unf und_7>0  than  print  -pro j_unfund_7  using  “t(U(#)"i 
alsa  print  “  “i 

print  column  132. “1“ 

print  "  - 


bafora  group  of  tagk_no 
lat  avalcount  -  0 
if  linecountO  than  bagin 

print  “1“.  column  73.  "  I  ",  column  132.  "I" 
print  " - - - — 


skip  to  top  of  paga 
and 

print  “I". column  73. - I », column  132. "I" 


print  “1  TASK: 

.  task 

_noCl. 

61.1  space,  task  titled,  331, 

column  73,  ■ 

“» 

if 

task_fund 

COO 

than 

print 

task_fund_0 

uaing 

alsa 

print 

M 

if 

tast_fund 

_i>o 

than 

print 

task_fund_l 

ueing 

"######  "j 

alsa 

print 

« 

if 

task_fund 

2>0 

than 

print 

task_fund_2 

using 

"*##*##  "i 

alsa 

print 

M 

if 

task_f und 

3>0 

than 

print 

task_fund_3 

using 

"#*####  "i 

else 

print 

tt 

if 

task_f und 

_4>0 

than 

print 

task_fund_4 

using 

"*»»*»»  "i 

else 

print 

N 

if 

task_f und 

„3>0 

than 

print 

task_fund_S 

using 

"»•»*»*  "i 

alsa 

print 

N 

if 

task_f und 

_6>0 

then 

print 

tasl_fund_6 

using 

"#####»  -i 

alsa 

print 

•f 

if 

task_fund 

__7>0 

then 

print 

task_fund_7 

using 

else 

print 

N 

print  “I* 

lot  linocount  »  linacount-2 

aftor  group  of  tasfc_no 
lat  pagacount  "  1 
if  avalcount  *>  O  than  bagin 
print  "I", column  73, "I "i 

if  task_unf und_0>0  than  print  -tast_unf und_0  using  "<(<<<#>"; 
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if  task_unf und_l>0  than  print 
else  print  M  "i 

if  task_unf und_2>0  than  print 
alae  print  "  "i 

if  taak_unf und_3>0  than  print 
alaa  print  “  "i 

if  task_unf und_4>0  than  print 
alaa  print  ”  "i 

if  taak_unfund_9>0  than  print 
alaa  print  "  "i 

if  taak_unf und_6>0  than  print 
alaa  print  "  "i 

if  task_unfund_7>0  than  print 
alaa  print  "  "i 

print  coluain  132,  "I" 

lat  linacount  “  linacount-1 
end 


-taak_unfund_l 
-taak_unfund_2 
-taak_unfund_3 
-taak_unf und_4 
-taak_onfund_S 
-task_unfund_.fi 
-task_unfund_7 


using  " 
using  “ 
using  " 
using  " 
using  " 
using  ” 
using  n 


#)“i 
#)Mi 
#>“i 
#>"i 
#>"i 
#)"i 
•  >"i 


before  group  of  csscontrol_ssn_no 

if  csscontrol_ssn_noO"  "  than  begin 
if  linacount  <  3  than  begin 

print  "I",  coluain  79,  "  I  coluain  132,  "  I  " 

print  "  - 

H _ _ _ _ _ _ _ _ _ _ _ _ _ _____ _ _________ _ _ _ _ _ __ _ _ _ _____ 

skip  to  top  of  page 
end 

print  "I  ",  9  spaces. csscontrol  ssn  no, 3  spaces,  lrpproc_ssn  title, 
coluain  79,  "  l"i 
let  linacount  •  linacount-1 
if  evalcount  “  O  than  begin 
let  evalcount  “  1 

if  task_unfund_0>0  than  print  -task_unfund_0  using  "<<<<(#>"i 

also  print  "  "i 

if  task_unfund_l>0  than  print  -task_unf und_l  using  "<<<<<*>"i 

also  print  "  "i 

if  task_unfund_2>0  than  print  -task_unfund_2  using  "(<<<<#l"i 

also  print  "  “i 
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id  task_undund_3>0  th«n  print  -task_undund_3  using 
■Isa  print  ”  “i 

if  task_undund_4>0  then  print  -task_undund_4  using 
■Isa  print  “  “» 

id  task_undund_3>0  than  print  — task_unf und_3  using 
alaa  print  "  "i 

id  task_undund_6>0  than  print  -task_undund_6  using 
■  a  Isa  print  "  “< 

id  t«sk_undund_7>0  than  print  -task_undund_7  using 
alaa  print  "  “i 

end 

print  column  132.  “ I M 


■y 
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2.  Project  Index 


/u/pl an/ rpt .Linda/ pro j Index 

This  report  produces  an  index  to  the  peproj  report  described  earlier.  The  page  number 
locations  are  marked  with  hyphens.  Actual  page  numbers  should  be  entered  using  the  system  editor 
(vl)  after  the  project  summary  has  been  run. 


'  ■'*'  ^  '  A"}/  < 


T, 


imr1 
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database  aitj>Un  end 
define 

variabl*  i  type  integer 
and 


t 

‘  f 


(l 


output 

left  margin  O 
right  margin  132 
raport  to  “pro jindai. out" 
and 

raad  into  a 

proj_ind*  proj_titl* 
tuhara  (c**prrdte_mia*_araa  «  "C88") 
joining  c»»prrdt*_proj_ind*  »  proj_inda 
and 

*ort  bg  proj_pe  proj_no  proj_c*d  and 

format 

paga  haadar 

print  column  47. “******  UNCLASSIFIED  ******" 
skip  3  lino* 

print  column  47,"  CSS  FUNDED  ROTE  PROJECT  INDEX" 
skip  3  linas 

print  31  spacas.  "PE*. 9  spacas.  “PROJ", 13  spaces.  "TITLE", 

28  spaces.  "COMMAND". 8  spaces.  "PAOE” 
skip  2  linas 

before  group  of  proj_.no 
lot  i  »  i+1 

before  group  of  praj_cmd 

print  30  spacas. pro j_pa.  3  spacas,  proj_nos 

print  3  spacas.  pro  j_ti  tlal  1 . 40],  3  spacas.  pro  j_cmd.  3  spaces, 

99 
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D.  SYSTEM  REPORTS 


1  •  System  Rollup  Summary 

/u/plan/rpt.Linda/sysrollnew 

This  report  is  the  original  system  summary,  where  procurement  and  ROTE  funding  is  Indicated 
by  symbols  rather  than  by  the  actual  funding  amounts.  It  has  not  been  used  in  a  MUMP  lately,  but  is 
likely  to  be  Included  again  in  the  planning  phase  of  the  MRHP  process. 
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<System  Summary} 
database  mat_plan  end 
define 

variable  breakukpkg  type  integer 

variable  break  type  i lteger 

variable  total_fund  type  i...tger 

variable  pagebreak  type  integer 

variable  worktot  type  integer 

variable  evalcount  type  integer 

variable  fstars  type  character  length  4 

variable  ustars  type  character  length  4 

paramCll  cmd  type  character  length  IS 

paramC2]  pno  type  integer 

end 

output 

left  margin  O 
right  margin  132 
report  to  "sy srol lneu. out" 
end 

read  into  b 

csscontrol_s»n_no  decontrol _type 
ssndesc 

where  ssndesc_cmd  «  cmd 

joining  csscontrol_un_no  =  s»ndetc_s»n_no 
end 

read  into  a 
b 

ssndef 

rollup 

lrpproc_ssn_ti tie 

lr pproc_proc_f unded_l  lrpproc_proc_f unded_2  lrpproc_proc_f unded_3 
lrpproc _proc_f unded_4  lrpproc_proc_f unded _S  lrpproc  proc_funded_6 
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lrpproc_proc_#unded_7  lrpproc_proc_f unded_8  lrpproc_proc_f und#d_9 
lrpproc_proc_f undod_10  lrpproc_proc_f und«d_l 1  lrpproc_proc_fundad_12 
lrpprac_proc_f unded_13  lrpproc_proc_f undad_14  Irpproc jrot_f und«d_13 
lrpproc_proc_f unded_16  lrpproc_dov_code  lrpproc_o*«r_cod#  Irpproc 
joining  b  c*«control_isn_no  »  optional  rol lup_ssn_no 
and  b.  c *acontrol_»»n_no  «  optional  *andaf_«sn_no 
and  b.  c**control_i*n_no  ■  optional  lrpproc_san_.no 

and 


read  into  d 
margasan_2 

unique  mar gestn_wk p k g_i nd « 

joining  a.  csscontrol_asn_no  -  psaudol ink_s»n_no 

and  psaudol ink_wkpkg_indx  »  margassn_ukpkg_indx 

•  nd 


read  into  b 
a 

u/li  p  k  g_no_ind  »  uikpkg_«ubcat  wkpkg_pa  wkpkg_proj  ukpkg_task  wkpkg_titl« 

u> k p It g _ # und _ t*0  ukpkg_fund_yr 1  wkpkg_fund_yr2  h»kpkg_fund_yr3 

wkpkg_fund_gr4  ukpkg_fund_gr9  eikpkg_fund_yr6  wkpkg_fund_gr7 
"kp kg_unfund_yrO  ukpkg_unfund_yr 1  wkpkg_unfund_yr2  wkpkg_unfund_yr3 
“kpkg_unfond_vr4  wkp k g_unfund_yr9  <ekpkg_unf und_yr6  «kpkg_unfund_gr7 
d.  mtrg«fin_2 

joining  a.  c*»control_i»n_no  “  psaudol tnk_ssn_no 
and  psaudol ink_ukpkg_ind >  »  wkpkg_no_ind> 
and  psaudol ink_ukpkg_ind «  “  d.  *<rg»im_uk  p  kg_ind  * 

•nd 

sort  by  isndasc_cmd  csscontrol_typ»  csscontrol_ssn_no  wkpkg_subcat  descending 
u>kpkg_j>a  wkpkg_proj  ukpkg_no 
end 

format 


page  header 

print  column  47, "***•*•  CONFIDENTIAL  **•»***" 
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if  pagebreak^O  than  bagin 
skip  2  linas 

print  20  spaces.  “SSN:  “.  c sscontrol_ssn_no.  20  spaces. 

“TITLE:  Irpproc_ssn_title 

if  rol lup_ssnlO“  "  than  bagin 

print  20  spaces. "ASSOC  SSN:  r ol lup_s»n 1 . 4  spaces,  rol lup_ssn2.  4  space 

rol lup_ssn3.  4  spaces,  rol lup_ssn4.  4  spaces,  rol lup_ssn5.  4  spaces, 
rol lup_ssn6< 4  spaces,  rol lup_ssn7,  4  spaces,  rol lup_ssn8.  4  spaces, 
rol lup_ssn7.  4  spaces.  rollup_ssnlO 

end 

else  skip  1  line 
skip  1  line 

print  “Mission  Area:  “.  lrpproc__mi isjiaee,  col umn  BO.  "AMCMSC:  ". 
ssndesc_amcmsc 

print  “Mission  Area  Major  System:  ".  ssndesc_ma jor_tystem. 

column  80, “AMC  Manager  :  ".  ssndesc_cmd 

print  “Cross  Functional  Area:  ",  ssndesc_cross_f unc.  column  80. 

“TRADOC  Proponent:  “.  lrpproc_user_code 

print  “Acquisition  Type:  "i 

if  csscontrol_type  =  0  then  print  “Base  Case”) 
else  if  csscontrol_type  •»  1  then  print  “Type  Classified”) 

else  if  csscontrol_type  “  2  then  print  "Development”! 

else  if  csscontrol_type  ”  3  then  print  “PlPs") 

else  if  c ssc ontr ol_type  ■  4  then  print  “Technology  Demonstrators”) 

else  if  c sscontrol_type  «  5  then  print  “Broad  Base  Tech  Area”) 

else  if  csscontrol_type  »  6  then  print  "Requirement  Above  Corps”) 

else  print  ”  “) 

print  column  80. “Req.  Document:  s»ndesc_reqdoc_l. 

”.  “.  ssndesc_reqdoc_2.  ".  ".  ssndesc_reqdoc_3. 

end 

else  if  pagebreak**!  then  begin 
skip  2  lines 

print  20  spaces. “SSN:  “.  c sscontro l_ssn_no.  20  spaces. 

"TITLE:  "»  lr ppr oc _ssn_t i 1 1  e 

skip  2  lines 

print  column  47. "PRODUCTION  AND  DEVELOPMENT  PROGRAM", 5  spaces. "<cont  >“ 
print  " - - “ 
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print  “(".column  67. " I  89  86  87  88  89  90  91  92  93  94  99  96  97  98  99 

print  “I - - - “• 


and 

also  bagin 
•kip  2  lines 

print  20  spaces. "8SN:  ",  csscontrol_ssn_no.  20  spaces. 

"TITLE:  “.  lrpproc_ssn_ti tie 

skip  2  lines 

print  column  97.  "TECH  BASE  PROGRAMS".  9  spaces, “ (cent  >" 

print  “ - ", 

print  “I ".column  67. " I  89  86  87  88  89  90  91  92  93  94  99  96  97  98  99 

print  "I - - - - — - - — - -- - *. 


end 


before  group  of  csscontrol_ssn_.no 
let  evalcQuntaO 

print  “  — - - - 

M _ _ _ _ _ 


skip  to  top  of  page 
let  breakwkpkgaO 
print  “DEFICIENCIES:  "» 

if  ssndef_def_l>0  then  print 
if  ssndef _def_2>0  then  print 
if  ssndef_def_3>0  then  print 
if  ssndef _def_4>0  then  print 
if  ssndef_def_9>0  then  print 
if  ssndef_def_6>0  then  print 
if  ssndef_def_7>0  then  print 
if  ssndef_def_8>0  then  print 
if  ssndef _def_9>0  then  print 
if  ssndef _def_10>0  then  print 
print  "  " 


•sndef_def_l.  ssndef_con_li 
".  ",  ssndef  _def_2.  ssndef _con_2i 

".  ",  »sndef_def _3.  ssndef _con_3i 

".  ".  ssndef_def_4.  ssndef_con_4» 

",  *.  sendef_def_9.  ssndef_con_9» 

",  ",  ssndef_def_6.  ssndef _con_6i 

“.  ".  ssndef_def_7.  ssndff_con_7( 

“.  ".  ssndef_def_8.  ssndef _con_8i 

“.  ".  ssndef _def_9,  ssndef _con_9i 

",  ".  ssndef _def_10.  ssndef_con_10( 
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after  group  of  <ekpkg_no 

if  evalcount  »  0  then  begin 
•kip  2  line* 

print  "DESCRIPTION:  ssndesc_teitl  clipped 
print  12  spaces. ssndesc_te x t2  clipped 
print  12  spaces. ssndesc_text3  clipped 
print  12  «paces> ssndesc_text4  clipped 
print  12  spaces.  ssndesc_text9  clipped 
skip  3  lines 

print  column  49.  "PRODUCTION  AND  DEVELOPMENT  PROGRAM" 

print  “ - ", 

H- _ _ _ _ _ __ _ _ _ __ _ _ _ _ _ _ li 

print  "I ".column  67. " I  89  86  87  88  89  90  91  92  93  94  99  96  97  98  99 

print  "1 - ", 

"--I - - - 1  " 

print  "I  PRODUCTION". column  67. “I"i 
let  pagebreak«l 

let  total _fund«lrpproc_proc_funded_H-lrpproc_proc_funded_2+ 
lrpproc_proc_funded_3-«-lrpproc_proe_funded_4+ 
lrpproc_proc_funded_9+  lrpproc_proc_f  unded_6-*- 
lrpproc_proc_funded_7  +  lrpproc  _proc_f unded_8+ 
Irpproc_proc_funded_9+  lrpproc  _proc_f unded_10+ 
lrpproc_proc_funded_l l*  lrpproc_proc_funded_12+ 
lrpproc_proc_funded_!3+  lrpproc_proc_f unded_14+ 
lrpproc_proc_funded_19+  lrpproc_proc_f unded _16 
if  csscontrol_ssn_no  matches  "4*"  then  print  column  93,  "CBTOCK  FUNDED>". column  13 
else  begin 

if  total_fund  •  O  then  print  column  93, "CNOT  SCHEDULED?". column  132. "I" 

else  begin 

let  f stars""e*ee" 


f 

lrpproc  _proc_funded 

1 

> 

0 

then 

print 

f  star  s) 

else 

print 

n 

M 

f 

lrpproc _proc_f unded 

2 

> 

0 

then 

print 

f stars) 

else 

print 

m 

*» 

f 

lrpproc_pr oc_f unded 

3 

> 

0 

then 

print 

f stars) 

else 

print 

H 

M 

f 

lrpproc_proc_f unded 

_4 

> 

0 

then 

print 

f stars) 

else 

print 

N 

It 

If 

lrpproc_proc_f unded 

9 

> 

0 

then 

print 

f  star  s) 

else 

print 

ft 

M 

If 

lrpproc_proc_f unded 

6 

> 

0 

then 

print 

f  star  s> 

else 

print 

It 

M 

f 

lrpproc_proc_f unded 

7 

> 

0 

then 

print 

f stars) 

else 

print 

tt 

M 
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> 

*  • 


vf 


if  ii>kpkg_title[31. 31J«“ 
if  '•>kpkg_titleC32,  323*." 
if  wkpkg_titleC33,  333*“ 
if  ukpkg_titleC34.  34J-” 
if  ukpkg_titleC39.  391«M 


let  break-31 
let  break-32 
let  break-33 
1 • t  break-34 
let  break-39 


print  ukp  kg_tl  tlet  1 .  break  1.  column  47,  Ti 

lbt  worktot  »  <okpkg_fund_yr  l+ii>kpkg_fund_yr2+(i)kpkg_fund_yr3r 

wk  p  k  g _ f und_yr l+u>kpkg_f  und_yr  l+»)kpkg_fund_yr6+ 

“•'PtJ—f  und_gr  7-Mekpk  g_onfund_.gr  l+wkpkg_unfund_yr2+ 
“•‘Pkg.unf  ond_gr3+wkpkg_unf  und_yr4+wkp  kg_unf  und_yr9+ 
“tpkg_unf und_yr6+wkpkg_unf und_gr7 
if  worktot  >  O  than  bagin 

if  mergeaan_2  *  *  *  than  bagin 
lat  fatara  » 

iat  uatara  -  " - and 

•laa  bagin 

lat  fatara  “  "mnwtm" 
lat  uatara  -  “-m-m" 
end 

if  wkpkg_fund_yr 1  >  0  than  print  fatara)  alae 

if  wkpkg_unfund_gr 1  >  0  then  print  uatara)  alaa  print  ”  " 

if  wkpkg_fund_yr2  >  0  than  print  fatara)  alae 

if  wkpkg_unfund_yr2  >  0  than  print  uatara)  alaa  print  "  " 

if  wkpkg_fund_yr3  >  0  than  print  fatara)  alaa 

if  wkpkg_unP«md_yr3  >  0  than  print  uatara)  else  print  “  " 

if  u)kpkg_fund_gr4  >  0  than  print  fatara)  alae 

if  wkpkg_unfund_yr4  >  O  than  print  uatara)  else  print  "  " 

if  ukpkg_fund_yr9  >  0  than  print  fatara )  alae 

if  wkpkg_unfund_yr9  >  0  then  print  uatara i  alaa  print  "  " 

if  wkpkg_f und_yr6  >  0  than  print  fatara)  alaa 

if  wkpkg_unfund_yr6  >  0  then  print  uatara)  alaa  print  *  " 

if  ukpkg_f und_yr7  >  0  than  print  fatara)  alae 

if  wkpkg_unfund_yr7  >  0  than  print  uatara)  alaa  print  “  " 

print  column  132."!" 
and 

alaa  print  "  <Tcomplated>  "-column  132.  "  I " 

print  "I",  column  32.  wkpkg_ti tl etbreak+1 , 60].  column  67.  " I ".  column 


I”,  column  132,  "  I ' 


r  **' 

r 

y 


V  #  «  * 

-  rV>  • .. .  i-  • 


*•*  m-: 

•  ;  V  *  *  *  r 


•V- 
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after  group  of  csscontrol_**n_no 
let  pagebreak*>0 

on  last  record 


tkip  to  top  of  page 

page  trailer 

if  pagebreak>0  then 


elee  skip  1  line 
skip  1  line 

print  “Legend-.  eee*  Funded  ” 

print  “  - Unfunded” 

print  ”  humus  Multi-con.  Work  Pkg.  “ 

print  "  -•-»  Unf.  Multi-con.  Work  Pkg.  "» 

print  coluain  47.  “eeeeee  CONFIDENTIAL  eeeee* 

tkip  1  line 

print  60  spaces. pno 

let  pno*pno+l 
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2.  System  Funding  Summary 

/u/plan/rpt.Unda/sys  dollars 

This  report  Is  styled  after  the  System  Summary  but  Includes  the  actual  funding  amounts 
rather  than  using  symbols.  It  Is  Intended  to  be  called  for  each  command  since  this  report  Is  usually 
Interleaved  with  other  system-related  reports  In  the  printed  HAMP.  Two  variations  of  this  report, 
sysdotta  and  sysdollb,  are  used  to  aggregate  the  PNs  and  other  commands  Into  single  reports. 


I 
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(System  Summary  with  Dollar  Value*  ln*ert#d> 

database  mat_plan  end 

define 

variable  hflag  type  integer 

variable  tbflag  type  integer 

variable  breat  type  integer 

variable  total_fund  type  integer 

variable  pagebreak  type  integer 

variable  linesleft  type  integer 

variable  uorktot  type  Integer 

variable  evalcount  type  integer 

variable  vb  type  character  length  1 

psramClJ  cmd  type  character  length  12 

param[21  pno  type  integer 

and 

output 

left  margin  O 
right  margin  132 
report  to  “«y edol lare. out” 
end 

read  into  a 

c **contr ol_»*n_no  csscontrol_type 
esndesc 

where  iendesc_cmd  ”  cmd 

joining  c*«control_»»n_no  **  »*nde»c_»»n_no 
end 

read  into  b 
a 

lrpproc_«»n_no  lrpproc_»«n_t  i  t  le 

lrpproc _proc_f unded_l  lrpproc  _proc_f unded_2  1 rpproc_proc_f unded_3 
lrpproc_proc_f unded_4  lrpproc _proc_funded_S  lr pproc_proc _f unded_6 
lrpproc_proc_funded_7  lrppr oc_proc_f unded_S  lrpproc_proc_f unded_V 
Irpproc_proc_f unded_10  lrpproc_proc_funded_l 1  lrpproc_proc  __funded_12 

Ill 


1 


THE  BDM  CORPORATION 


t 


•  f 


'  j  V"1" • 


1  rpproc_proc_t unded_13  lrpproc _proc_f unded_14 

lrpproc _proc_unf unded_l  Irpproc _proc_unf unded_2  lrpproc_proc_unf unded_3 
lr pproc_proc_unf unded_4  lrpproc _proc_unf unded_S  Irpproc_proc_unf unded_6 
lrpproc _proc_unf unded_7  lr ppr oc_proc_unf unded_8  lrpproc _proc_unPunded_9 
lrpproc_proc_unf unded_10  lrpproc_proc_unfunded_li  lrpproc _proc_unf iind»d_12 
lrpproc_proc_unf unded_13  lrpproc_proc_unf unded_14 
lrpproc_dev_code  lrpproc_user_code  lrppr  oc_mi  tt_na<ne 
undif 
rollup 

joining  a.  cncontrol_nn_no  ”  optional  lrpproc_*sn_no 
and  a.  ci»control_i»n_no  «  optional  ssndef _»«n_no 
and  a.  csscontrol_ssn_.no  *  optional  rol lup_**n_no 

end 


read  into  d 
merge«in_2 

unique  mergessn_wkpkg_indi 

joining  b.  csscontrol_ssn_no  *=  pseudolink_ssn_no 

and  pseudolink_wkpkg_inds  *»  mergessn_wkp  kg_ind  t 

end 


read  into  a 
b 

wkpkg_no_indx  wkpkg_subcat  wkpkg_pa  wkpkg_proj  ukpkg_task  wkp kg_ti t le 
“kpkg_f und_grO  wkpkg_fund_gr 1  wkp kg_fund_yr2  wkpkg_f und_gr3 
“•IP,[9_/un9_9»‘4  wkpkg_f und_grS  wkpkg_Pund_gr6  wkpkg_fund_gr7 
“l‘P|'9_“,’^,»nd_grO  wkpkg_unfund_yrl  wkpkg_unf und_yr2  wkpkg_unf und_yr3 
ul,P,l9_un*un9_yr4  wkpkg_unfund_yr3  wkpkg_unf und_yr6  wkpkg_unf und_gr7 
cssprrdte_miss_area 
d.  msrgessn_2 

joining  b.  csscontrol_ssn_no  =  pseudol ink_**n_no 
and  pseudol ink_wkpkg_ind >  a  wkp kg_no_ind « 
and  pseudol ink_wkpkg_ind x  *=  d.  inergassn_ukp kg_ind x 
and  wkpkg_proj_indx  *>  optional  cssprrdte_pro j_i ndx 

end 

sort  bg  csscontrol_ssn_no 

■«bpkg_»ubcat  descending  wkpkg_pe  wkpkg_proj  wkpkg_no  end 


112 


r 

( 

i 


j[ 


4 


* 


THE  BOM  CORPORATION 


format 


page  header 

print  column  47, “*•**#*  C 

skip  2  lines 

let  pagebreak  »  O 

let  linesleft  *  93 

let  vb  -  "I" 


ONFIDENT  IAL 


before 
■  kip 
pr  in 

let 
let 
if  r 
sk 
pr 
if 
if 
if 
if 
if 
if 
if 
if 
if 
if 
pr 
It 
end 
skip 
pr  in 
prin 

pr  in 


group  of  c sscontrol_ssn_na 
to  top  of  page 

t  20  spaces, “SSN:  ”,  c»scontrol_ssn_no, 

20  spaces, “TITLE:  ",  lrpproc_ssn_title 
linesleft  -  linesleft-1 
tbflag  “  O 

ollup_ssnl<>“  "  then  begin 
ip  1  line 

lnt  20  spaces.  “ASSOC  SSN:  "i 
rol  lup_ssnlO"  "  then  print  4  spaces, rol lup_s 
then  print  4  spaces, rol lup_s 
then  print  4  spaces, rol lup_s 
then  print  4  spaces,  rol lup_s 
than  print  4  spaces, rol lup_s 
then  print  4  spaces,  rol lup_s 
then  print  4  spaces,  rol lup_s 
then  print  4  spaces,  rol lup_s 
then  print  '4  spaces,  rol  lup_s 

1  lup_i 


rol lup_ssn2<> 
rol lup_ssn3<> 
rol lup_ssn4<> 
rol lup_ssn9<>“ 
rol lup_ssn6<>" 
rol Iup_ssn7<>“ 
rol  lup_ssnSO“ 
rol lup_ssn9<>" 
rol  lup_ssnlOO“ 
int  “  “ 
t  linesleft  ”  linesleft-2 


then  print  4  spaces.ro 


snli 
sn2i 
sn3> 
sn4i 
sn9f 
sn6i 
sn7i 
snSi 
snf  > 
ssnlOi 


1  line 

t  “Mission  Area;  “,  lrpproc_miss_name,  column  80, “AMCMSC: 
t "Commodity  Line:  ",  ssndesc_ma Jor_sgstem. 

column  BO, "AMC  Manager:  “,  ssndesc_cmd 
t"Cross  Functional  Area:  ",  ssndesc_cross_f unc 
column  BO  . "TRADOC  Proponent:  ",  lrpproc_user_code 
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print  "Acquisition  Type:  ", 

if  csscontrol_type  »  0  than  print  “Base  Case", 
else  if  csscontrol_type  -  i  than  print  "Type  Classified"! 

else  if  csscontrol_type  =>  2  than  print  “Development", 

else  if  csscontrol_typa  »  3  than  print  "PIPs"; 

else  if  csscontrol_type  ■»  4  then  print  "Technology  Demonstrators"! 

else  if  csscontrol_typa  ~  9  than  print  “Broad  Base  Tech  Area") 

else  if  csscontrol_type  *>  6  than  print  "Requirement  Above  Corpa"i 

else  print  "  "i 

print  column  80, "Req.  Document:  ssndesc_reqdac_l, 

",  ",  ssndesc_reqdoc_2,  ",  ",  ssndesc_reqdoc_3,  “  >  “ 
let  linesleft  ■=  linesleft-9 
skip  1  line 

print  "DEFICIENCIES:  “i 
if  ssndef _def _1>0  then  begin 
print  ssndef_def_li 


if  ssndef _con_l<>"  "  then  print 
if  ssndef_def_2>0  then  begin 
print  ",  ",  ssndef _def_2i 

ssndef_con_l! 

else 

print 

»• 

"J 

end 

if  ssndef _con_2<>"  "  then  print 
if  ssndef_def _3>0  then  begin 
print  ",  ",  ssndef  _def_3i 

ssndef_con_2i 

else 

print 

H 

"i 

end 

if  ssndef _con_3<>“  "  then  print 
if  ssndef_def_4>0  then  begin 
print  ",  ",  ssndef_def_4i 

esndef_con_3; 

else 

print 

M 

H  j 

end 

if  ssndef _con_40"  "  then  print 
if  ssndef_def _5>0  then  begin 
print  ",  ",  ssndef_def_5i 

ssndef _c on_4i 

else 

print 

M 

"I 

end 

if  ssndef _con_9<>"  *  then  print 
if  ssndef_def _6>0  then  begin 
print  ",  ",  ssndef _def_6i 

ssndef_con_9< 

else 

print 

*1 

"1 

end 

if  ssndef _con_6<>"  "  then  print 
if  ssndef_def _7>0  then  begin 
print  ",  ",  ssndef _def_7( 

ssndef _con_6; 

else 

print 

M 

"i 

end 

if  ssndef _con_7<>"  "  then  print 
if  ssndef_def _8>0  then  begin 
print  ",  ",  ssndef _def_Si 

ssndef _con_7i 

else 

print 

M 

"i 

end 

if  ssndef _con_8<>"  "  then  print 

ssndef _c on_8i 

else 

print 

N 

N  . 
t 

end 

t 
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if  ssndaf _def __9>0  than  bagin 
print  ".  ssndaf_daf_9i 

if  ssndef_con_90“  “  than  print  ssndaf_con_9<  else  print  “  “j  end 

if  asndaf _daf _10>0  than  bagin 
print  “i  ssndaf_daf _10j 

if  ssndef_con_100"  “  than  print  asndaf _con_10i  else  print  “  “»  and 

print  “  “ 
skip  1  lina 

print  “DESCRIPTION:  “.  ssndasc _ta « t 1  clippad 
print  12  spaces.  ssndasc_tait2  clippad 
print  12  spacas.  ssndesc_te«t3  clippad 
print  12  spaces,  ssndesc_te«t4  clippad 
print  12  spaces,  ssndesc_te*t5  clippad 
let  1 inaslef t  -  linesleft-B 
skip  2  lines 

print  column  36. "PRODUCTION  PROGRAM  <»K>" 

print  "  - 


print  "I “.column  18,  “I  93  94  93  96  97  98  I". 

“  83  86  87  88  89  90  91  92  I " 

print  "  I - 1 - 1  ", 

II _ _ _ . _ _ _ _ _____________  |  M 


print  vb."  FUNDED  AMOUNT". column  18. vbi 

let  total_fund  =  lrpproc_proc_f undad_l+ lrpproc _proc_f unded_2+ 
lrppr oc_proc_f unded_3+Irpproc_proc_f unded_4+ 
lrpproc_proc_f unded_S+lrpproc_proc_f unded_6+ 
lrpproc _proc_funded_7+ lrpproc _proc_f undad_8+ 
lrpproc  _proc_f unded_9+lrpproc_proc_f unded_10+ 
lrpproc_proc_funded_ll-Mrpproc_proc_funded_12+ 
lrpproc_proc_fundad_13flrpproc_proc_fundad_14+ 
lrppr oc_proc_unf unded_l+lrpproc_proc_unf unded_2+ 
lrpproc _proc_unfunded_3+ lrppr oc_proc_unf und#d_4+ 
lrpproc_proc_unf unded_3+ lrpproc  _proc_unf unded_6+ 
lrpproc_proc_unfunded_7+lrpproc  _proc_unf unded_8+ 
lrpproc_proc_unf unded_9+lrpproc_pr oc_unf unded_10+ 
lrpproc_proc_unf unded_l l+lrpproc_pr oc_unf unded_12+ 
lrpproc _p roc „unfunded_l 3+ lrppruc  ..pr oc _unf unded_14 


115 


THE  BDM  CORPORATION 


if 


if  csscontral_ssn_no  matches  “4«"  then 

print  column  67. vb. column  93. “<STOCK  FUNDED?". column  132.  vb 
else  if  total_f und  -  0  then  print  column  67. vb. column  93, ”<NDT  SCHEDULED? " , 

column  132, vb 

else  begin 

lrpproc_proc_f unded_9  >  O  then  print  lrppr oc_pr oc_f unded_9*1000 
using  “i  else  print  B  spaces, 

lrpproc_proc_f unded_10  ?  0  then  print  lrpproc_proc_f unded_l 0*1000 
using  "IMHMHttt#  ",  else  print  8  spaces, 
lrpproc_proc_f unded_l 1  ?  O  then  print  lrpproc_proc_funded_l 1*1000 
using  "#######  ",  else  print  B  spaces; 
lrpproc _proc_f unded_12  >  0  then  print  lrpproc_pr oc_f unded_12*1000 
using  ",  else  print  8  spaces, 

lrpproc_proc_funded_13  >  0  then  print  lrpproc_proc_f und ed_13*1000 
using  "iHHMMHMt  ",  else  print  8  spaces, 
lrpproc_proc_f unded_14  >  O  then  print  lrpproc_proc_f unded_14*1000 
using  ”######•  ",  else  print  8  spaces, 
print  vb; 

if  lrpproc_proc_f unded_l  ?  0  then  print  lrpproc_proc_f unded_l*iOOO 
using  “ft#*##*#  ",  else  print  8  spaces, 
lrpproc_proc_f unded_2  ?  0  then  print  lrpproc_proc_f unded_2*1000 
using  ”*##*#»#  ",  else  print  8  spaces, 
lrpproc_proc_funded_3  ?  O  then  print  lrpproc_proc_f unded_3*iOOO 
using  “#######  ”,  else  print  8  spaces, 
if  lrpproc_proc_f unded_4  ?  O  then  print  lrpproc_proc_f unded_4*iOOO 
using  "tHMHMMI#  ",  else  print  8  spaces, 
if  lrpproc_proc_f unded_S  ?  0  then  print  lrpproc_pr oc_f unded_5*iOOO 
using  ”####*##  ",  else  print  8  spaces, 
lr pproc_proc_f unded_6  ?  0  then  print  lrpproc_proc_funded_6*1000 
using  ”#######  ”,  else  print  8  spaces, 
lrpproc_proc_funded_7  ?  0  then  print  lrpproc_proc_f unded_7*1000 
using  ”#######  ",  else  print  8  spaces, 
if  lrpproc_proc_f unded_8  ?  0  then  print  lrpproc_proc_f unded_8*1000 
using  ",  else  print  8  spaces, 

print  vb 
end 

print  ”1  UNFUNDED  AMOUNT", column  18, vb; 


if 


if 


if 


if 


if 


if 


if 


if 


if 
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if 


lrpproc_proc-unfunded_9>0  then  print  -lrpproc_proc 
using  "(<<<<<#>“.  else  print  8  spaces., 
if  lrpproc_pr oc_unf unded_10>0  then  print  -Irpproc _proc 
using  else  print  8  spaces 

if  lrpproc_proc_unf unded_l 1>0  then  print  -Irpproc _proc 
using  "<<<<<<•)“.  else  print  B  spaces; 
if  lrpproc_proc_unfunded_12>0  then  print  -lrpproc_proc 
using  "<(((<(•)* i  else  print  B  spaces, 
if  Irpproc _j>roc_unf  unded_13>0  then  print  -lrpproc_proc 
using  “<<<<<<#>“.  else  print  B  spaces, 
if  lrpproc_proc_unfunded_14>0  then  print  -lrpproc_proc 
using  “ < ( < ( ( <#) “i  else  print  8  spaces, 
print  vb. 

if  Irpproc_proc_unfunded_l>0  then  print  -lrpproc_proc_ 
using  "<<<<<<#)".  else  print  8  spaces, 
if  lrpproc_proc_unfunded_2>0  then  print  -lrpproc_proc_ 
using  “<(((<<•)“.  else  print  8  spaces, 
if  lrpproc_proc_unfunded_3>0  then 
using  "((((((t)1*.  else  print 
if  lrpproc_proc_unfunded_4>0  then 
using  "<(((<(#)“.  else  print 
if  lrpproc_proc_unf und*d_3>0  then 

using  "<<(<<<•>".  else  print  B  spaces, 
if  Irpproc _proc_unfunded_6>0  then  print  -lrpproc_proc 
using  “<<<<<<#>".  else  print  8  spaces, 
if  lrpproc_proc_unfunded_7?0  then  print  -lrpproc_proc 
using  "<<(<<<*>".  else  print 
if  lrpproc_proc_unfunded_B>0  then 
using  "(<<<<<#) “.  else  print 
print  vb 

print  "  - 

let  linesleft  *  linesleft-9 
skip  2  lines 

if  <ukpkg_subcata>"6.  1 "  or  wkpkg_subcat””6.  2"  or  wkpkg 
print  column  93.  "TECH  BASE  PROORAMB  (*K)“ 
let  tbflag^l  end 

else  print  column  35. “DEVELOPMENT  PROOF AM8  <•«)" 
print  1 


,unf  unded_9elOOO 
_unfunded_loeiOOO 
_unf und*d_l  1*1000 
,unfunded_12*1000 
unf unded_13*1000 
unfunded  14*1000 


print  -lrpproc_proc. 

8  spaces. 

print  -lrpproc_proc. 

B  space*. 

print  -lrpproc_proc. 


8  spaces. 

print  -lrpproc_proc. 

8  spaces. 


unfunded. 

unfunded. 

unfunded. 

unfunded. 

unfunded. 

unfunded. 

.unfunded. 

.unfunded. 


.1*1000 

.2*1000 

.3*1000 

.4*1000 

.3*1000 

.6*1000 

.7*1000 

.8*1000 


_subc*t*»"6.  3A* )  then  begin 
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print  vb. column  64. "i  !“. 

"  83  86  87  88  89  90  91 

print  *' I - 


let  linesleft  «  linesleft-6 

before  group  of  wkpkg_no 

if  linesleft  <  3  then  begin 

print  “  - 

•kip  to  top  of  page 

print  20  spaces.  "SSN:  “.  csscontrol_ssn_.no. 

20  spaces. “TITLE:  “.  lrpproc_ssn_title 
skip  2  lines 

if  (wkpkg  subcat- "6.  1"  or  wkpkg  subcat-,,6.  2"  or  sikpkg_subcat-B6.  3A*  >  then  begin 
print  column  33.  “TECH  BASE  PROQ8AM8  <*K>" 
let  tbf lag  -  1  end 

else  print  column  S3. “DEVELOPMENT  PROORAM8  <»K>" 


print  "  - 

print  vb.  column  64.  “  I  I". 

“  83  86  87  88  89  90  91  92  I " 

print  "I - 1  — I". 

H _ _ _ _ _ _ _ .... _ _ _ _ _ .... - - ..... - |  *« 

let  linesleft  »  linesleft-7 
end 


else  if  tbflag  ■  0  and 

(ukpkg  subcat»"6.  1 "  or  wkpkg_subcat-”6.  2“  or  wkpkg_subcat-"6.  3A“ )  then  begin 
let  tbflag  =  1 

print  "  - 

let  linesleft  -  linesleft-1 
if  linesleft  <  9  then  begin 
skip  to  top  of  page 

print  20  spaces. “SSN:  ".  cs»control_ssn_no, 

20  spaces. "TITLE:  ".  lrpproc_ssn_title 
let  linesleft  "  linesleft-1 
end 

skip  2  lines 

print  column  33.  "TECH  BASE  PROGRAMS  (*K>“ 

print  “  - 
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print  vb.  column  64.  "I  I", 

“  85  66  87 

print  "I - 


89 


90 


91 


92  I" 

- 1- 

- 1  “ 


lat  llntilift 
and 

print  Hl  “ ,  wkp  k  g_p  a.  1 
lat  braak  “  33 


linaslaf t-6 


tpaca.  wkpkg_proj.  1  spaca.wkpkg_taakCl.33il  spaca.  wkpkg_cotdC  1 . 43 


if 

wkpkg  titlet25.  253 

m 

•1 

H 

than 

lat 

braak 

B 

23 

if 

wkpkg  titlaC26.  263 

«* 

M 

M 

than 

lat 

braak 

B 

26 

if 

wkpkg  tltleC27.  273 

B 

M 

H 

than 

lat 

braak 

B 

27 

if 

wkpkg  titlaC2B. 283 

m 

H 

M 

than 

lat 

braak 

B 

28 

if 

wkpkg  titleC29. 293 

B 

M 

•I 

than 

lat 

braak 

B 

29 

if 

wkpkg  titlaC30.  303 

B 

II 

** 

than 

lat 

braak 

m 

30 

if 

wkpkg  titlaC31. 313 

B 

M 

M 

than 

lot 

braak 

m 

31 

if 

wkpkg  titlaC32. 323 

B 

•» 

M 

than 

lat 

braak 

m 

32 

if 

wkpkg  titleC33. 333 

B 

H 

M 

than 

lat 

braak 

B 

33 

print  wkpkg_titlaCl.  braakl,  column  64.  vb; 
if  cssprrdta_miss_araa-“C8SM  than  print  “*"»  alsa  print 


if  margassn_2<>" 
print  vbi 
lat  worktot 


than  print  "ia"i  alsa  print 


“i 


twkp kg) _ fund _ yrO  +  wkpkg_f und_gr  1  +  wkpkg_fund_yr2  * 

u*tpkg_fond_yr3  *  wkpkg_f und_gr4  +  wkp kg_f und_yr3  ♦ 
uiptj_fun<jr4  ♦  wkpkg_f und_yr7  + 

“••tpill—UnfundjirO  ♦  wkpkg_unfund_yr 1  +  wkpkg_unf und_gr2  * 
“kptt—unf und_gr3  ♦  wkpkg_unfund_yr4  ♦  wkpkg_unfund_yr3  +■ 
ul|P,,9_un^ur'd_yr6  +  wkpkg_unfund_yr7 
if  worktot  >  0  than  bagin 

if  wkpkg_f und_yr0>0  than  print  wkpkg_f und_yrO  using 
alsa  print  8  spacas. 

if  wkpkg_f und_yr 1>0  than  print  wkpkg_f und_yr 1  using 
alsa  print  8  spaces. 

if  wkpkg_fund_yr2>0  than  print  wkpkg_f und_yr2  using 
elsa  print  8  spaces; 

if  wkpkg_fund_yr3>0  than  print  wkpkg_f und_yr3  using  "IMMMMMMt 
alsa  print  8  spacas; 

if  wkpkg__fund  yr4>0  then  print  wkpkg_f und_yr4  using  “####### 
else  print  8  spaces; 
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if  wkpkg_fund_yr5>0  then 

else 

if  ukpkg_f und_yr6>0  then 

else 

if  wkpkg_f und_yr7>0  then 

else 


print  ukpkg_f und_yr3  using 

print  8  spaces: 

print  ukpkg_f und_yr6  using 

print  8  spaces! 

print  »kpkg_fund_yr7  using 

print  8  spaces: 


ti 


» 


H 


: 


print  column  132. vb 
end 

else  print  "  <comp  leted>",  column  132.  vb 

print  vb. column  32: 

if  break  >  29  then  print  Mkpkg_titleCbreak+l,  603: 
else  print  ukpkg_ti t 1 etbreak+1 , breek+31 3/ 
print  column  64. " I  I": 


if  «ukpkg_unfund_yrO>0  then  print  -mkpkg_unf und_grO  using  "<<<(<<#>" 

else  print  8  spaces: 

if  wkpkg_unfund_yrl>0  then  print  -wkpkg_unf und_yr 1  using  "((<((<#)“ 

else  print  8  spaces: 

if  ukp kg_unf und_gr2>0  then  print  -mkpkg_unf und_yr2  using  "<<<<<(#)“ 

else  print  8  spaces: 

if  wkpkg_unfund_yr3>0  then  print  -wbpkg_unf und_yr3  using  “<<(((<#>" 

else  print  8  spaces: 

if  wkpkg_unfund_yr4>0  then  print  -s*kpkg_unfund_yr4  using  "<<<<((#>" 

else  print  8  spaces: 

if  <ukpkg_unfund_yr5>0  then  print  -wkpkg_unfund_grS  using  "((((((#)” 

else  print  8  spaces: 

if  ukpkg_unfund_gr6>0  then  print  -«kpkg_unfund_yr6  using  "<<(<<<#>" 

else  print  8  spaces: 

if  wkpkg_unfund_yr7>0  then  print  -wkp kg_unf und_gr7  using  "<<<<(<#>" 

else  print  8  spaces: 

print  column  132. vb 

let  linesleft  *  linesleft-2 


after  group  of  csscontrol_ssn_.no 
print  "  - 
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3.  System  Resources  Summary  j 

(w/o  active  6.3B/6.4  Uorkpackages) 

/u/plan/rpt.L1nda/sysres  | 

This  report  produces  a  listing  of  systems  which  should  hut  do  not  have  identified  6.3B  or 
6.4  uorkpackages.  The  systems  included  are  classified  as  developmental  or  PIP.  If  printed  in  the  1 

report,  the  system  will  have  no  6.3B  or  higher  uorkpackages.  Any  funding  shown  represents  tech  base 
funding  only.  Two  variations  of  this  report,  sysresa  and  sysresb,  are  used  to  prepare  reports  for 
i  the  PMs  and  other  command  sections  of  the  System  Volume  of  the  MAMP.  I 


THE  BOM  CORPORATION 

<  System  Resource  Report  with  RDTE  Funding  Chert  > 

database  aiat_plan  end 

define 


variable 

wkp 

typ 

le  integer 

variable 

tbo 

typ 

le  integer 

variable 

pgend  typ 

le  Integer 

variable 

f  85 

type 

float 

variable 

f  86 

type 

float 

variable 

f  07 

type 

float 

variable 

faa 

type 

float 

variable 

f  09 

type 

float 

variable 

f  90 

type 

float 

variable 

f  91 

type 

float 

variable 

»92 

type 

float 

variable 

uBS 

type 

float 

var table 

u86 

type 

float 

variable 

u87 

type 

float 

variable 

u80 

type 

float 

variable 

u89 

type 

float 

var iab le 

u90 

type 

f  loat 

variable 

u91 

type 

float 

variable 

u92 

type 

float 

paramt 1 3 

cmd 

type  character  length  12 

param(21 

pno 

type  integer 

end 


output 

left  margin  O 
right  margin  132 
report  to  “tysres. out" 
end 

read  into  a 

csscontrol_ssn_no  csscontrol_type 
ssndesc  _cmd 

Irpprocs entitle  lrpprocmi i s  name 
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inhere  c  s  sc  on  t  ro  1  _t  yp  eOO  and  c  s sc ont r o  l_ty peO  1  and  c  sscontrol_type04 

and  csscontrol_type<>9  and  ssndosc_cmd  =  cmd  i 

<  exclude  bate  case  and  type  classified  and  tech  demo  and  BBTA  systems  >  1 

joining  csscontrol_ssn_.no  »  ssndesc_ssn_no  • 

and  csscontrol_ssn_no  =  optional  lrpproc_ssn_no 
end  j 

read  into  c 
a 

ui k  p k g_no_i nd  >  ukpkg_subcat 

ukpkg_f und_yrO  wkp kg_f und_gr i  <dkpkg_f und_yr2  ukpkg_fund_yr3 
l“liplig_f und_yr4  ukpkg_fund_yr3  wkpkg_fund_yr6  iekpkg_f und_gr7 
“>kpkg_unfund_yrO  wkpkg_unfund_yrl  wkpkg_unfund_yr2  ukp kg_unf und_gr3 
wkpkg_unfund_gr4  ukp k g_unf und_yrS  wkpkg_unfund_yr6  wkpkg_unf und_yr7 

joining  a.  csscontrol_ssn_no  *  optional  pseudol ink_ssn_no  ’ 

and  pseudol ink_wkpkg_ind >  *  optional  wkpkg_no_ind>  j 

end 


sort  by  ssndesc_cmd  csscontrol_ssn_no  end 


format 


page  header 

print  column  47,  '•**#***  UNCLASSIFIED  eeeeee" 
skip  2  lines 

print  column  39,  SYSTEMS  WITHOUT  ACTIVE  6  3B/6  4  WORKPACKACES  FOR  ", ssndesc 
skip  3  lines 

print  column  90, " DEVELOPMENT  SCHEDULE" 

print  “ - ", 


print 

print 


print 
let  pgend 


1 

S8N " , 10  spaces 

.  "TITLE”,  column 

61, "DA  MA”. column 

67, 

! 

FY83  FYB6 

FY87  FY08 

FYB9  FY90 

FY91 

FY92 

1" 

1  ", 

,  column  67,  "  !  ", 

column  132,  “1" 

cmd 
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page  trailer 

If  pgend  -  O  than  begin 

print  "  I  ",  column  67.  "  I  ",  column  132,  “I" 
print  "  - 


end 

•Isa  skip  2  lines 
skip  2  lines 

print  "Legend: “, column  47, "•••*••  UNCLASSIFIED 


print  "•••###  Funded  (Tech  Base  Only)" 

print  Partial  Funded" 

print  " -  Unfunded",  column  60, pno 


let  pno  «  pno+1 

before  group  of  ssndesc_cmd 
skip  to  top  of  page 

after  group  of  ssndeic_cad 
let  pgend  -  1 

print  "I". column  67,  " I  ",  column  132,")" 
print  "  - 


before  group  of  c ssc ontr o l_ssn_no 
let  wkp  «  1 
let  tbo  -  1 
let  f 85  =  O 
let  f 86  -  O 
let  f 87  -  0 
let  f88  -  0 
let  f 89  -  0 
let  f 90  «  O 
let  f 91  -  0 
let  f 92  *  O 
let  u89  -  0 
let  u86  *  0 
let  u87  »  0 
let  tiH8  -  0 
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let  uH9  -  O 
let  u90  *  O 
let  u91  =  O 
let  u92  -  O 


after  group  of  t esc ontro l_ssn_no 
If  wkp=>l  or  tbo-1  then  begin 
print  “I  c iic ontro l_»*n_no. 

1  r  ppr  oc _mi  * snameC  l ,  3], 
if  f 83>0  then  begin 

if  uS3>0  then  print  “*-*-*- 
else  if  u83>0  then  print 
if  f  86>0  then  begin 

if  u86>0  then  print  "•-e-e¬ 
el  se  if  uB6>0  then  print 
if  f 87>0  then  begin 

if  u87>0  then  print  "e-e-e- 
el  *  e  if  u87>0  then  print 
if  f 88>0  then  begin 
if  u88>0  then  print 
else  if  u88>0  then  print 
if  f 89>0  then  begin 

if  u89>0  then  print  “e-e-e¬ 
el  l  e  if  u89>0  then  print  “- 
if  f90>0  then  begin 
if  u90>0  then  print 
else  if  u90>0  then  print 
if  f91>0  then  begin 
if  u91>0  then  print 
else  if  u9l?0  then  print 
if  f  92>0  then  begin 
if  u92>0  then  print 
else  if  u92>0  then  print  "- 
print  column  132. "I" 
end 


2  spaces,  lrppr oc_ssn_t i t le.  1  space, 
column  67.  “I“( 

*-“)  else  print  "•••••••••>!  end 

- - — else  print  ”  “ i 

•-")  else  print  ■■••••••••“!  end 

- "i  else  print  "  "i 

e-“j  else  print  "••••••••",  end 

- "i  else  print  ”  "i 

*-">  else  print  "••••••••“,  end 

- "i  else  print  "  " i 


*-"i  else  print  "••••••••"i  end 

- ”i  else  print  " 


*-"j  else  print  "••••••••”!  end 

- "r  else  print  *  “i 


#-"i  else  print  "•*••#*•#”,■  end 
- “i  else  print  ”  "i 


•*-"i  else  print  "eeeeeeee“i  end 
- «,  else  print  "  "i 


I  ^ 


.  ■  t  ■'  ■ 

v-i  *.  . 
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I 

1  I 

■  !i 

•  r 

I  i  I 


on  ovary  record 

if  wkpkg_no<>“  “  than  lat  wkp  »  0 

if  uikpkg_iubcat»"6.  3B”  or  wkp kg_aubcat”“6  4"  or  wkpkg_eubcat»"6.  S" 
or  wkp kg_»ubcat»“6.  7"  than  lat  tbo>0 


lat 

f  83 

m 

fas 

4 

“•>pkg_f  und_yrO 

let 

u85 

u 

u83 

4 

“kpkg_unf und_yrO 

let 

f  86 

- 

f  86 

4 

“kpkg_fund_yr 1 

lat 

u86 

3 

u86 

4 

“kpkg_unfund_yr 1 

let 

f  87 

* 

f  87 

t 

“,'pkg_fund_yr2 

lat 

o87 

» 

u87 

4 

<*>*Pkg_unfund_yr2 

let 

f  88 

m 

f  88 

4 

wkpkg_f und_yr3 

let 

u88 

m 

u88 

4 

wkpkg_unfond_yr3 

let 

f  89 

** 

f89 

4 

“*P*9_*un4_M'l'4 

let 

oB9 

« 

o89 

4 

“*‘P*9_“nfond_yr4 

let 

f  90 

m 

f  90 

4 

wkpkg_fund_yr3 

let 

u90 

m 

o90 

4 

“*>pkg_unfund_yr3 

let 

f  91 

m 

f  91 

4 

wkp  kg_f und_yr6 

lat 

u91 

m 

o91 

4 

wkp  kg_unf und_yr6 

let 

f  92 

m 

f  92 

4 

“*pkg_fund_yr7 

let 

o92 

m 

u92 

4 

“bpbP—Unf ond_yr7 

end 
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4.  Base  Case/Type  Classified  Streamlined  Summary 
/u/plan/rpt .Linda/basetc 

This  report  produces  streamlined  summaries  of  base  case  and  type  classified  systems  which 
typically  do  not  have  RDTE  programs.  The  system  procurement  schedule  and  BDP  deficiencies  are 
included  in  the  report.  Two  variations  on  this  report,  basetca  and  basetcb,  are  used  to  prepare  the 
sunraaries  for  the  PMs  and  other  command  sections  of  the  System  Volume. 
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<  Streamlined  Base  Case  and  Type  Classified  Systems  > 

<  This  Report  Produces  a  Chart  of  Funding.  > 

database  mat_plan  end 


define 


variable 

total_fund 

type 

long 

variable 

aval 

type 

integer 

par ami  1 1 

cmd 

type 

character  length  12 

paramC21 

end 

pno 

type 

integer 

output 

left  margin  O 
right  margin  132 
report  to  "basetc. out" 
end 

read  into  a 

csscontrol_ssn_.no  csscontrol_type 
ssndesc_cmd 

inhere  <csscontrol_type  »  O  or  csscontrol_type  >1)  and  ssndesc_cmd  «  cmd 
joining  csscontrol_ssn_no  =  ssndesc_ssn_no 
end 

read  into  b 


ssndef 

lrpproc_miss_name  lrpproc_ssn_title 

lrpproc_proc_f unded_l  lrpproc_proc_f unded_2  1 rpproc_proc_funded_3 
lrpproc_pr oc_f unded_4  lrpproc  _proc_f unded_9  lrpproc_proc_f unded_6 
lrpproc_proc_funded_7  lrpproc_proc_funded_8  Irpproc_proc_f unded_9 
lrpproc_pr oc_f unded_10  lrpproc _proc_f unded_l 1  lrpproc _proc_f unded_12 
lrpproc_proc_f unded_13  lrpproc _pr oc_f unded_14  lrpproc_proc_funded_lS 
lrpproc_proc_funded_!6 

lrpproc_proc_unf unded_l  lrpproc_proc_unfunded_2  lrpproc  _pr oc_unf unded_3 
Irpproc_proc_unfunded_4  lrpproc  _proc_unf unded_5  lrpproc_proc_unfunded_6 
lrpproc  p roc  jin funded _7  lrpproc. proc_unfunded_8  lrpproc _p roc  _unfunded_9 
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lrpproc_proc_unf unded_10  lrpproc _proc_unf unded_l 1  lrpproe _proc_unf unded_12 
lrpproc_proc_unf unded_13  lrpproc_proc_unf unded_14  lrpproc_proc_unf unded_13 
lrpproc _p roc _unf unded_l 6 

joining  a.  csscontrol_*sn_no  =  optional  lrpproc_ssn_no 
and  a.  csscontral_ssn_no  =  optional  ssndef _ssn_no 


end 


sort  by  c ssc on tr a  1 _t y pe  csscontrol_ssn_no  end  ! 

f 

format 

page  header  I 

let  aval  *  O 

print  column  48. “a****  CONFIDENTIAL  «****“ 
skip  3  lines 

print  column  39, "STREAMLINED  SUMMARY  OF  “i 

if  csicontrol_type  =  O  than  print  “BASE  CASE"i 

else  if  csscontrol_type  -  1  than  print  “TYPE  CLASSIFIED”. 

print  "  SYSTEMS  FOR  ", ssndesccmd 

skip  3  lines 

print  column  90, “PROCUREMENT  SCHEDULE" 

print  " - - - ", 


print  "I  SSN",  10  spaces,  “TITLE/DEFICIENCIES". column  61.  "DA  MA“, column  67, 
"  |  83  86  87  88  89  90  91  93  93  94  98  96  97  98  99  00  I  " 

print  "I - " 

"I - 1" 

print  "I", column  67.  " I". column  133,  "I" 


before  group  of  csscontrol_type 
if  aval  >  0  then  begin 

print  '■  - 


skip  to  top  of  page 
and 

on  last  record 

if  eval  >  0  then 
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print  " 


on  every  record 

let  aval  «  eval+1 

let  total_fund  “lrpproc _proc_f unded_l+lrpproc_proc_f undad_2 

+lrpproc_proc_funded_3+l rpproc _proc_f unded_4+lrpproc_proc_f unded_9 
+lrpproc_proc_f unded_6+ lrpproc jproc_funded_7+lrpproc_proc_funded_8 
+  lrpproc_proc_f  undad_9+lrpproc_proc_f  unded_10+lrpproc_proc_funded_l 1 
■*Trpproc_proc_funded_12+lrpproc_proc_funded_13+l rpproc _proc_f unded_14 
♦lrpproc_proc_funded_13+lrpproc_proc_funded_16 
♦lrpproc  jroc^unf  unded_lrlrpproc_proc_unfunded_2 

♦lrpproc  _proc_unfunded_3f lrpproc  _jproc_onfonded_4-»l  rpproc  _proc_unf  undad_9 
+lrpproc_proc_unf unded_6+lrpproc_proe_unfunded_7+lrpproc_proc_unf unded JB 
♦lrpproc  _proc_unfunded_9+lrpproc  _proc_unf unded_10+lrpproc  _j»roe_unf  unded_l  1 

♦  lrpproc  _proc_unfunded_12+l rpproc _proc_unf unded_13+lrpproc_proc_unf unded_14 

♦  lrpproc_proc__unfunded_19+lrpproc  _proc_unf  undad_16 

print  “I  "•  cncontro!_un_noi  2  spaces.  lrpproc_ssn_ti  tie.  1  space. 
lrpproc_mi  ss_namell.  93.  "  1  “( 

if  csscontrol_ssn_no  matches  "4*"  then  print  column  93. 

"<STOCK  FUNDED}".  column  132.  "I" 

else  if  total_fund  "  0  then  print  column  93. "<NQT  SCHEDULED}". column  132. "1“ 
else  begin 

if  lrpproc_proc_f unded_l  }  0  then  begin 

if  lrpproc_proc_unfunded_l  »  0  then  print 
else  print  end 

else  if  lrpproc _proc_unfunded_l  }  0  then  print  " - "i  else  print  "  “i 

if  lrpproc_proc_funded_2  }  0  then  begin 

if  lrpproc_proc_unf unded_2  *  0  then  print  •'****"* 
else  print  ••*-*-";  end 

else  if  lrpproc _proc_unf unded_2  >  0  then  print  ” - ”i  else  print  "  “i 

if  lrpproc_proc_funded_3  }  O  then  begin 

if  lrpproc_proc_unfunded_3  «  0  then  print  "***#"i 
else  print  “a-*-";  end 

else  if  lrpproc _proc_unf unded_3  >  0  then  print  " - “i  else  print  "  “i 

if  lrpproc_proc_funded_4  >  0  then  begin 

if  lrpproc_proc_unf unded_4  *  0  then  print  "****", 
else  print  end 
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else  if  1 rpproc_proc_unf unded_4  > 
if  lrpproc_proc_f unded_5  >  0  then 
if  lrpproc_proc_unf unded_S  =■  O 
flu  print  end 

else  if  lrpproc_proc_unf unded_5  > 
if  lrpproc_proc_f unded_6  >  O  then 
if  lrpproc _proc_unf unded_&  ”  O 
•lia  print  and 

alia  if  lrpprot_proc_onf unded_6  > 
if  lrpproc_proc_funded_7  >  0  than 
if  lrpproc_proc_unf undad_7  ■  0 
alsa  print  and 

alaa  if  lrpproc_proc_unf ondad_7  > 
if  lrpproc_proc_funded_B  >  O  than 
if  lrpproc_proc_unfunded_8  <■  0 
alsa  print  and 

alaa  if  lrpproc_proc_unfunded JB  > 
if  lrpproc_proc_f unded_9  >  0  than 
if  lrpproc_proc_unf unded_9  ■  0 
aide  print  and 

alaa  if  lrpproc_proc_onf undad_9  > 
if  lrpproc_proc_fundad_10  >  0  than 
if  lrpproc_proc_onf undad_10  -  O 
alaa  print  and 

alaa  if  lrpproc_proc_onf undad_10  > 
if  lrpproc_proc_fundad_ll  >  0  than 
if  lrpproc_proc_unf undad_l 1  —  0 
alaa  print  and 

alaa  if  lrpproc_proc_unf undad_l 1  > 
if  lrpproc_proc_fondad_12  >  0  than 
if  lrpproc_proc_unf undad_12  «  0 
alsa  print  and 

alaa  if  lrpproc _proc_unf undad_12  > 
if  lrpproc_proc_fundad_13  >  0  then 
if  lrpproc _proc_unf unded_13  -  0 
alaa  print  and 

else  if  lrpproc_proc _unf undad_!3  > 


0  then  print  “ - "i  alaa  print 

begin 

then  print  “#***,,i 

0  than  print  “ - "i  alaa  print 

bag  in 

then  print  "*e*e"i 

0  then  print  * - “i  alaa  print 

begin 

than  print  "***»“i 

0  then  print  •’ - “>  alaa  print 

begin 

than  print  “***e“i 

O  then  print  '• - "i  alaa  print 

bag  in 

then  print  ”*aa*"i 

0  than  print  " - "i  alaa  print 

begin 

than  print  “****•■( 

0  than  print  “ - "i  else  print 

begin 
than  print 

0  than  print  * - "i  alaa  print 

begin 

than  print  "ee**”i 

0  than  print  " - "i  alaa  print 

begin 

than  print  "***#") 

0  then  print  " - ”•  else  print 


"i 


"i 


"i 
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if  lrpproc_proc_f unded_14  >  0  then  begin 

if  lrpproc_proc_unf unded_14  ■  0  then  print 
elie  print  *-"i  end 

else  if  lrpproc_proc_unf unded_14  >  O  then  print  “ - “i  elee  print 

if  lrpproc jiroc_funded_lS  >  0  then  begin 

if  lrpproc_proc_onfunded_13  “  O  then  print  "**e*"i 
elee  print  end 

elee  if  lrpproc_proc_unf onded_lS  >  0  then  print  " - "i  elee  print 

if  lrpproc_proc_f unded_16  >  O  then  begin 

if  lrpproc_proc_unfunded_16  *  0  then  print  "eee*|H 
elee  print  end 

elee  if  lrpproc_proc_unf unded_16  >  0  then  print  " — —  I “  elee  print 
end 

print  "I  "i 

if  eendef_def _1>0  then  begin 
print  eendef_def_l  ueing  " 

if  eendef_con_10"  M  then  print  eendef_con_l i  elee  print  “  "i 

if  eendef_def _2>0  then  begin 

print  eendef_def_2  ueing  "  *##*’’» 

if  eendef  _con_20"  "  then  print  eendef  _con_2<  elee  print  "  “ i 

if  eendef_def _3>0  then  begin 

print  eendef_def_3  ueing  “  #*##"( 

if  eendef  _con_30"  "  then  print  eendef_con_3<  elee  print  “  "i 

if  eendef_def _4>0  then  begin 
print  eendef_def_4  ueing  “ 

if  eendef _con_4<>"  "  then  print  e endef_eon_4i  elee  print  “  "i 

if  eendef_def_5>0  then  begin 

print  eendef_def_3  ueing  “  t#Wi 

if  e  endef_con_30"  "  then  print  eendef_con_3i  elee  print  "  "i 

if  eendef_def _6>0  then  begin 
print  eendef_def_6  ueing  “ 

if  eendef_con_6<>“  "  then  print  eendef _eon_6i  elee  print  "  “i 

if  eendef_def_7>0  then  begin 

print  eendef_def_7  ueing  "  ##*#"» 

if  eendef _con_70“  *'  then  print  eendef _con_7i  elee  print  "  "i 

if  eendef _def_8>0  then  begin 

print  eendef_def_8  ueing  ”  Mit"i 


eendef_con_li 

elee 

print 

N 

"i 

end 

eendef  _con. 

_2i 

elee 

print 

ft 

"t 

end 

eendef_con. 

_3< 

elee 

print 

M 

"l 

end 

eendef_con. 

_4i 

elee 

print 

N 

"l 

end 

eendef_con. 

_3i 

elee 

print 

M 

*1 

end 

eendef_con. 

_6i 

elee 

print 

M 

"I 

end 

eendef_con. 

_7i 

elee 

print 

ft 

M  . 

f 

end 

eendef_con 

._n, 

elee 

print 

•  1 

ft  . 

» 

end 
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print  column  67.  “  S  ".  column  132.  "I" 
print  "I",  column  67.  ”  I  ".  column  132.  "I” 

if  eva  1  «■  13  then  begin 

print  “  - 


skip  to  top  of  page 
end 

page  trailer 
skip  1  line 

print  "Legend: ". column  48.  “*****  CONFIDENTIAL  **s**» 
print  “  ****  -  Funded  Procurement" 

print  “  *-*-  -  Partial  Funded" 

print  “  -  -  Unfunded". column  60. pno 

let  pno  “  pno+1 


end 


r 

! 


V 
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5.  System  Index 

/u/plan/rpt .Llnda/syslndex 

This  report  produces  an  index  for  systems  in  csscontrol  sorted  by  system  title.  The  page 
number  locations  are  marked  with  three  hyphens.  After  the  other  system  reports  have  been  prepared, 
then  the  actual  page  numbers  should  be  entered  using  the  system  editor  (vl).  A  similar  Index,  sorted 
by  SSN  Is  produced  by  the  companion  report  syslndexl. 
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database  mot_plan  and 
output 

left  margin  O 
right  margin  132 
report  to  "syslndex out" 
end 

read  into  a 

csscontrol_isn_no 

lrpproc_miss_name 

Vrpproc_s*n_title 

**ndeic_cmd 

joining  csscontrol_ssn_no  *■  optional  lrpproc_ssn_no 
and  csscontrol_ssn_no  ■  optional  nnd(ic_iin_no 

and 

sort  by  lrpproc_«an_titl#  csscontrol_isn_no  end 
format 

before  group  of  ciecontrol_een_.no 

print  20  spaces. ceecontrol_een_no.  4  epacec.  lrpproc_miee_name< 

4  epacee.  lrpproc_een_title. 4  epacee. eendeec_cmd. 4  epacee," - " 

page  header 

print  column  47. "eeeee*  UNCLASSIFIED  eeeeee" 
skip  2  lines 

print  column  33,  "COMBAT  SERVICE  SUPPORT  SYSTEMS  IN  ALPHABETICAL  ORDER  BY  TITLE" 
skip  2  lines 

print  21  spaces. "S8N". 6  spaces. "DA  MA”.19  spaces. "SYSTEM  TITLE". 

28  spaces. "COMMAND",  9  spaces. "PACE" 
skip  2  lines 


>36 


1 

'1 

I- 

] 

] 

1 
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I 

I 

1 


page  trailer 
•kip  2  lines 

print  coluam  47, "*e**e*  UNCLASSIFIED  ****#*« 

flip  1  line  • 

print  62  epeces,  "A-“.  pageno  using  "•••" 

end 
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E.  WORKPACKAGE  REPORTS 

1 •  Workpackage  Appendix 

/u/plan/rpt.L1nda/wrkapdxa 

This  report  prints  a  workpackage  summary  for  all  workpackages  funded  by  projects  Included 
In  cssprrdte.  The  summary  Includes  funding  data,  text  description  and  workplan,  and  related  CSS 
systems.  Urkapdxa  prints  pages  ”A-f“  while  wrkapdxb  prints  pages  "B-f".  Both  require  a  command  name 
as  a  parameter.  Variations  wrkapdxc  and  wrkapdxd  are  used  for  the  PMs  and  other  command  sections  of 
the  Appendix.  Both  variations  print  pages  *B-f" 
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{  Work  Package  Append  la  > 
database  mat _plan  and 
define 


variable 

c Ichar 

type 

character 

length  1 

variable 

sent 

type 

integer 

paramCil 

cmd 

type 

character 

length  12 

paramC21 

and 

output 

pno 

type 

integer 

left  margin  0 

report  to  “wrkapdaa.  out" 
end 

read  into  a 

wk p kg_no_ind a  wkpkg_lab  wkpkgtltle  wkpkg^pe  wkpkg_proj  wkpkg_task 
“kpkg_f und_yrO  ukp kg_f und_yr 1  wkp kg_f und_yr2  wkp kg_f und_yr3 
wkpkg_fund_gr4  wkpkg_fund_yr3  wkpkg_f und_gr6  wkpkg_fund_yr7 
ukpl>l_unfunil_vrO  wkpkg_unfund_yr 1  wkpkg_unfund_yr2  wkpkg_unfund_yr3 
"kpkg_onfund_yr4  wkpkg_unfund_yr3  wkpkg_onf und_yr6  wkpkg_unffund_yr7 
“kp tg_trans_date 
cssprrdte_mi si_area 
where  wkpkg_cmd»cmd 

joining  «kpkg_proj_inda  “  cssprrdte_proj_inda 
end 

read  into  b 
a 

wkdesc_teatO  wkdesc_teati  wkdesc_teat2  wkdesc_teat3  wkdesc_teat4 
ukdesc_teat3  wkdesc_teat&  wkdesc_teat7  wkdasc_teat8  wkdesc_teat9 
wk*86_teat0  wk»86_teatl  wks86_teat2  wks86_teat3  wk*8&_teat4 
uk*86_teat3  wk *86_t e a t6  le ksBA_te»t7  wksB6_teatB  uik s86_te a t9 
flag 

joining  a.  wkpkg_no_inda  «  optional  wkdetc_wkpkg_inda 
and  a.  wkpkg_no_tnd a  »  optional  wks86_wkpk g_ind a 
and  a.  wkp kg_no_ind a  -  optional  f lag_ukpkg_ i nri a 

end 
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read  into  c 
pieudol ink 

lrppr oc_aan_t i t la  lrpproc_mi * t_name 
joining  b.  wkp kg_no_ind >  =  pseudol infc_wkp kg_ind * 
and  psaudol ink_»*n_no  “  lrpproc_aan_no 
and  paeudol ink_aan_no  »  caacontrol_tan_no 

end 

read  into  a 
b 

c. paeudol ink_aan_no  t.  lrpproc_aan_titla  c.  lrpproc_mi*t_name 
joining  b. wkpkg_no_ind >  -  optional  c . pieudoi inkukp kg_ind « 
and 

sort  bg  uikpkgpe  wkpkg_proj  ukpkg_taak  iakpkg_no  paaudolink_atn_.no  end 


page  header 

let  cl  char  =»  "  " 

if  uikdeac_textOCl,31“"(S>"  or  wka86_taat0[ 1 . 3J»* (S> "  than  begin 
let  clchar  -  "S“ 

print  column  SO. “******  SECRET  ******* 
end 

elae  if  wkdeac_tei tOCI .  31-" <C > "  or  wka86_tei tOC 1.  33*" (C ) "  then  begin 
let  clchar  *»  ”C" 

print  column  4S. "******  CONFIDENTIAL  ******" 
end 

elae  print  column  45, ”******  UNCLASSIFIED  ee***e” 
akip  2  linea 

print  column  45, "MORKPACKAOE  SUMMARY  DATA  FOR  ",wkpkg_cmd  clipped) 
if  <wkpkg_lab<>”  “  and  wkpkg_labOwkpfcg_cmd >  then  print  ”  /  ",  ukpkg_lab 
elae  print  "" 
akip  2  linea 

page  trailer 

if  clchar  ■=  "S”  then  print  coluihn  SO,  "eeeee*  SECRET  ******“ 

else  if  clchar  »  "C“  then  print  column  4S, "«****»  CONFIDENTIAL 
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•1**  print  column  49. “#»*»*#  UNCLASSIFIED  **####“ 
skip  1  line 

print  column  64. "A-", pno  using  "###" 
let  pno  «  pno+1 

before  group  of  ukpkg_na 
skip  to  top  of  page 
let  sent  ■  O 

print  "PE/Project/Task:  “.  wkpkg_pe.  1  space,  ukp kg_proj.  1  space. 

wkpkg.task  clipped."  :  UP  ",  ukpkg_no, column  67, “Title.  ",  wkpkg_title 
print  “Funded  by:  *.  cssprrdte_miss_prea! 
print  column  30, “Trans i tion  Date:  ”,  ukpkg_tr*ns_date 
skip  3  lines 

print  "  FY89  FY86  FY87  FYB8  FYB9  FY90  FY91  FY92"i 

print  column  90. “Description" 

print  "  -  -  -  -  -  -  -  - •• 

print  "Funded:  “.  uikpkg_f und_yrO  using  ”##***#“. 

“tptg_fund_yr 1  using  "###•##". 
ukpkg_fund_yr2  using  "ttillMMMI". 
ukp  kg_f  und_yr3  using  "*•*«««", 

“tp^-f  und_yr4  using 
ukpkg_fund_yr9  using  "**####", 
ukpkg_fund_yr6  using  "**#*##", 
ukpkg_fund_yr7  using  "**#*##"! 
print  column  72.  ukdesc_te<tO 

print  “Unfunded:  ", wkpkg_unfund_yrO  using  "#»##*#“, 
ukpkg_unf und_yr  1  using 
ukpkg_unfund_yr2  using  "*#*#**“, 
wkpk g_unf und_yr3  using  "###*•#". 
ukpkg_unfund_yr4  using  "419***#". 

“tP>ig_uf'fund_yr9  using  "****##". 
u»l>P,<9_'>,’fund_yr6  using  "######". 

“•tptg_unf und_yr7  using  “######"; 
print  column  72,  wkdesc_textl 
print  column  72,  ukdesc_text2 
print  “Flags"! 

print  column  72.  ukdesc _te* t3 
if  flagl_.nO"  "  then  begin 
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print  f lag l_n. 
print  flagl_0 
f lagl_2 
f lagl_4 
f lag 1_6 

end 

print  column  72. 

If  flag2_nO"  " 
print  flag2_n. 
print  flag2_0 
f lag2_2 
flag2  4 
flag2_6 

end 

print  column  72, 

if  flag3_nO”  " 
print  flag3_n, 
print  flag3_0 
flag3_2 
f lag3_4 
f lag3_6 

end 

print  column  72, 

if  flag4_n<>"  " 
print  flag4_n. 
print  flag4_0 
f lag4  2 
f  lag4  4 
f lag4_6 

end 

print  column  72. 

if  f  lag9__n<>"  " 
print  flagS_n. 
print  flagS_0 
f lagS_2 
f lag9_4 
f lagS_6 

end 


5  spaces. 

using  "######"  ,  f lag 1_1 
using  "######",  flagl_3 
using  "######".  flaglJS 
using  "######".  f  lag  1_7 

wkdes c_te»  t4 
then  begin 
3  spaces! 

using  ”######",  flag2_l 
using  “######",  f lag2_3 
using  “######",  flag2_3 
using  "#«####“,  flag2_7 

ukdesc_te> t9 
then  begin 
9  spacesi 

using  "######",  f lag3_i 
using  "######",  flag3_3 
using  "######",  flag3_3 
using  "######",  flag3_7 

ukdesc_te*  t6 
then  begin 
S  spaces* 

using  "######",  flag4_l 
using  "######".  f  lag4_3 
using  "######",  flag4_3 
using  "######",  f leg4_7 


wkdese_text7 
then  begin 
9  spaces; 
using  "######" 
using  "######" 
using  "######" 


f lag9_l 
f lag3_3 
f lag3_3 
using  "######",  flagS_7 
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using 

using 

u6ing 

using 


using 

using 

using 

using 


using 

using 

using 

using 


using 

using 

using 

using 


us  i  ng 
us  ing 
using 
using 


"######”, 

"######“. 

"######". 

"######"; 


"######", 
"######  ". 
“######". 
"######"; 


"######", 
"######". 
"11**###", 
"######" i 


"######", 
"######". 
"######". 
”««#«««” i 


"######". 
"######". 
“######". 
"######" . 
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i  i  I 


>  f lag6_l  using 
“*##*#* “,f lag6_3  using 
“####*#",  flag6_3  using 
“####*#“,  flag6_7  using 


“****»*“. 

"*##*#*" i 


print  column  72.  ulc desc _t* i  tS 
if  flag*.  n<)'  “  then  bag  in 
print  f lag6_n. 3  spaces* 
print  flag6_0  using  “*###** 
flag6_2  using 
flag6_4  using 
flag6_6  using 

end 

print  column  72.  <ekdesc_te>t9 
skip  3  linaa 

print  column  10. "Systems  Supported  (8SN/T1TLE/DA  MA>“i 
print  column  90. “1986  Workplan” 
skip  1  line 

before  group  of  psaudol  ink_ssn_.no 

if  scntCiS  than  print  psaudol ink_aan_no.  2  spaces.  lrpproc_ssn_title,  1  space. 

lrpproc_miss_name.  column  72 1 
let  sent  «  scnt+1 
if  scntCll  then  begin 


if  sent  “  1  then  print  wks86_teitO 

sent  •  2  then  print  wks86_textl 
sent  x  3  then  print  wks86_taxt2 
sent  •  4  then  print  uk s86_text3 
sent  "  3  than  print  uks86_text4 
sent  x  6  than  print  wks86_text3 
sent  «  7  than  print  wks86_text6 
sent  >  8  than  print  wksB6_text7 
sent  x  9  then  print  wks86_text8 
sent  x  to  than  print  uks86_text9 


else 

else 
else 
else 
else 
else 
else 
else 
else 

end 

else  print 


if 

if 

if 

if 

if 

if 

if 

if 

if 


after  group  of  wkpkg_.no 
if  sentxo  then  begin 

print  column  72.  wks06_textO 
print  column  72.  wks86_textl 
print  column  72.  uks86_text2 
print  column  72.  wksB6__text3 
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print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
end 

else  if  scnt=l 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
end 

else  if  scnt“2 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
end 

else  if  scnt“3 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 
print  column 


72.  ink  sB6_te  *  t4 
72.  wks86_tex  t5 
72.  Uks66_text6 
72,  wk  s86_te x  t7 
72,  wks8A_text8 
72.  uk  »8&_t e x  t9 

then  begin 
72.  uiks86_te«tl 
72.  wks86_text2 
72.  wks86_text3 
72.  Uiks8&~text4 
72.  wks86_text9 
72.  wks86_text6 
72, wksB6  t  e  x  1 7 
72,  Uks86_text8 
72, wksB6_text9 

then  begin 
72, wksB6_text2 
72.  wksS6_text3 
72.  wksB6_text4 
72,  Uiks86_text9 
72, uks86_text6 
72.  wks86_text7 
72, wks86_text8 
72.  wk s86_te x  t9 

then  begin 
72, Uks86_text3 
72,  wks86_text4 
72. wks86_text9 
72, wks86_te  x  t& 
72.  wk »86_text7 
72, uks8&_te  x  t8 
72, wksB6~tex  t9 
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•lie  if 

icnt«4 

then  bag! 

,n 

print 

column 

72,  uk«86_ 

,ta«t4 

print 

column 

72,  uki86_ 

_t  e  x  1 5 

print 

column 

72.  wki86 

_ta«t6 

print 

column 

72.  ink  186 

_ta«t7 

print 

column 

72.  wkiaA. 

_ta*tB 

print 

column 

72.  uii  t86_ 

_te*t9 

and 

alia  if 

•cnt>9 

then  bag! 

In 

print 

column 

72.  wki8& 

.taitS 

print 

column 

72,  wk  iB6_ 

.tax  t6 

print 

column 

72, wki86_tait7 

print 

column 

72. wkl86_tast8 

print 

col umn 

72.  ukiB6  ta«t9 

end 

alia  if 

acnt»6 

than  begin 

print 

column 

72, uki86_ta<t6 

print 

column 

72, Wki86_teit7 

print 

column 

72, wki86_ta*t8 

print 

column 

72.  wkiB6_tait9 

and 

alia  if 

icnt«*7 

then  bagl 

in 

print 

column 

72. wki8&_teit7 

print 

col umn 

72,  wki86. 

.texts 

print 

column 

72.  wkiSA. 

.ta«t9 

and 

alee  if 

•cnt-8 

than  beg! 

In 

print 

column 

72.  wki86. 

.texts 

print 

column 

72.  <ekl86. 

_taxt9 

and 

alia  if 

•cnt»9 

than  bag; 

In 

print 

column 

72.  wt  i86. 

_ta«t9 

end 


end 
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2.  Workpackaqe  Index 

/u/plan/rpt .Llnda/wkpindex 

This  index  is  similar  in  structure  to  the  project  index,  except  that  it  includes  all 
projects  in  cssprrdte  rather  than  just  those  that  are  CSS  funded.  The  page  number  locations  held  by 
hyphens  should  be  replaced  by  the  actual  page  numbers  of  the  first  workpackage  for  that  project. 
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da tabase  mat_plan  and 
define 

variable  junk  type  integer 
end 

output 

left  leargin  O 
right  Margin  132 
report  to  "wkpindes.  out* 
end 

read  into  b 

proj_inde  proj_title 
c  * sprr d te_mi ss_ar ea 

joining  cssprrdte_proj_indi  -  proj_ind> 
end 

eort  bg  proj_pe  proj_no  proj_CMd  end 
format 


print  column  47. "eeeee  UNCLASSIFIED  eeeee” 

■kip  2  line* 

print  99  •pace*.  “RDTE  PROJECT  INDEX* 

■kip  3  lines 

print  16  space*. “PE".  9  spaces.  "PROJ".  3  spaces. "DA  HA".  23  spaces. "TITLE 
38  spaces.  "COHHAND",  8  spaces. "PACE" 
skip  2  lines 

before  group  of  proj_no 
let  junk  *  junk+1 

before  group  of  proj_cmd 

print  19  spaces. pro j_pe. 3  spaces. pro j_no. 3  spaces. c»sprrdte_mlss_area. 
print  3  spaces,  pro j_title.  3  spaces.  proj_cmd. 3  spaces." - “ 
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/u/plan/rpt  .Linda/ priori 

This  report  computes  the  system  priority  rating  score  using  the  CSS  HMtP  methodology.  It 
is  subject  to  revision  as  differences  among  the  mission  area  managers  as  to  what  constitutes  an 
effective  methodology  are  resolved.  It  prints  the  nem  scores  for  each  system  In  ASCII  format  for 
entry  Into  the  data  base  file  priori.  This  program  is  called  automatically  by  the  shell 
/u/plan/db/prlorlty. 
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<  System  Priority  Ratings  Developer  > 
database  mat_plan  end 


define 

variable 

variable 

variable 

variable 

variable 

variable 

variable 

variable 

variable 

variable 

variable 

end 


tot  type  integer 
ndef  type  integer 
na  type  integer 
nb  type  integer 
nc  type  integer 
nd  type  integer 
ne  type  .integer 
na  type  integer 
score  type  integer 
conval  type  integer 
defval  type  integer 


output 

page  length  9999 
left  margin  O 
right  margin  67 
top  margin  O 
report  to  "priori. out" 
end 


read  into  a 

ssnpr i_ssn_.no  ssnpri_defic  ssnpri_con_v'al 
end 

sort  by  ssnpr i_ssn_no  ssnpri_defic  ssnpri_ 


format 


-vZw  '  '  '  f  . 
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1st  nb  =  0 
lot  nc  »  0 
lat  nd  ■»  O 
iat  na  »  O 
lat  n>  «  O 


before  group  of  aanpri_defic 
if  aanpr i_defic>0  than  bagin 

if  aanpr i_con_wal-“A''  than  bagin 
lat  na  «*  na+1 
lat  conval  *  16  and 
alaa  if  aanpr i_con_val  -  "B"  than  bagin 
lat  nb  ■  nb+t 
lat  conval  ■  8  and 

alaa  if  aanpr i_con_val  *  “C"  than  bagin 
lat  nc  -  nc+1 
lat  conval  “  4  and 

alaa  if  aanpr i_con_val  •  “D“  than  bagin 
lat  nd  »  nd+1 
lat  conval  ■  3  and 

alaa  if  aanpr i_con_val  “  "E"  than  bagin 
lat  no  =  ne-»l 
lat  conval  «  1  and 
alaa  bagin 

lot  n»  «  na  +  1 
lat  conval  *  O 
and 

if  aanpr i_def ic»1001  than  lat  defval*19 
alaa  lat  dafval  *  OOO-aanpr  i_def  ic 1/10+1 
lat  acora  *  acore+def val aconval 
lat  ndaf  -  ndef+1 
end 


“ 0“  then  begin 


than  bagin 


after  group  of  aanpr i_aan_no 
if  ndef>0  than  bagin 

print  aanpr  t_aan_no.  "  I  ndaf .  •'  t ",  na 
"I “.no.  “l-.n*.  "I",  acora,  "I" 


'  l".nb,  "1 


**  ' 
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2.  Workpackage  Priority  Ratings  Computer 
/u/plan/rpt.Linda/prior2 
This  report  computes  the  workpackage  priority  rating  score  using  the  CSS  MAHP  methodology. 
This  technique  is  merely  the  sum  of  the  raw  scores  of  the  related  system  for  each  workpackage.  It 
prints  the  workpackage  score  in  ASCII  format  for  entry  Into  the  data  base  file  pr1or2.  This  program 
Is  called  automatically  by  the  shell  /u/plan/db/priority. 


¥ 


**• 

t 


\ 
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<  Workpackage  Priority  Ratings  Generator  > 
database  mat_plan  end 


define 

variable  nsys 
variable  hiays 
variable  losys 
variable  score 
end 


type  integer 
type  integer 
type  integer 
type  integer 


output 

page  length  9999 
top  margin  0 
left  margin  0 
right  margin  132 
report  to  "prior2.  out" 
end 

read  into  a 
pseudolink 
pr iorl_score 

joining  csscontrol_ssn_no  »  pseudolink_ssn_.no 

and  pseudol ink_s»n_no  **  optional  pr iorl_ssn_no 

end 


sort  by  pseudol ink_cmd  pseudol ink_wkpkg  pseudo  1 ink_ssn_no  end 


format 


before  group  of  pseudol ink_wkpkg 
let  score  -  O 
let  nsys  “  0 
let  hlsys  -  O 
let  losys  •  32767 
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before  group  of  pseudol ink_ssn_no 

if  pseudollnk_ssn_.no  <>  "  “  than  begin 
let  score  »  score+pr ior l_score 
let  nsgs  »  nsys+1 

if  priorl_tcore>hitys  then  let  hisys  1 
if  prior l_score<losgs  then  let  losys  1 
end 

after  group  of  pseudol ink_ukpkg 
if  nayt"0  then  let  losys  ”  O 
print  pseudol in k_cnd.  "I",  pseudol ink_cet 
hisgs.  “  I  "»  losys >  “  I  “/  score*  "  1 " 


prior l_score 
prior l_score 


“I",  pseudo llnk_wkpkgi ” I nsgs 


1 
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I  3.  System  1  to  N  Priority  Report 

/u/plan/rpt.Linda/priorcss 

This  report  rank  orders  the  csscontrol  systems  which  are  not  base  case  or  type  classified. 

It  produces  a  printed  report  that  shows  the  ranking,  raw  score,  and  the  underlying  deficiencies  and 
:  contribution  values.  A  variation  of  this  report,  priorcsscmd,  prints  the  same  data  but  limits  the 

systems  considered  to  a  single  command.  Also,  the  report  priorsys  Is  available  as  a  variant  of 
I  prioress  that  prints  the  scoring  data  contained  in  the  file  priori. 


\r 
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<  System  Priority  Ratings  Report  > 

<  Previously  computed  Ratings  stared  in  Priori  > 

database  mat_plan  end 
define 

variable  cnt  type  integer 
variable  flag  type  integer 
end 


output 

left  margin  O 
right  margin  132 
report  to  “prioress. out" 
end 


read  into  a 

csscontrol_ssn_.no 

lrpproc_ssn_title  Ir ppr oc_mi ss_name 

ssndesc_cmd 

priori 

ssndef 

where  c ssc on tr o l_ty p e  >  1 
joining  csscontrol_ssn_no  «  optional 
and  csscontrol_ssn_.no  m  optional 
and  csscontrol_ssn_no  »  optional 
and  csscontrol_ssn_no  =  optional 


end 


prior l_ssn_no 
ssndesc_ssn_no 
lrpproc_ssn_no 
ssndef_ssn_no 


sort  by  priorl_score  descending  priorl_ndef  descending 
csscontrol_ssn_no  end 


format 
page  header 

print  column  47, “eeeee*  CON  FI  DENT  I  A  L  ******“ 
skip  2  lines 

print  column  S3, “CSS  RELATED  SYSTEM  RATINGS" 
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skip  3  lines 

print  "  SSN  DA  MA  AMC  MGR  TITLE**,  column  123,  "RATING** 

skip  1  line 


page  trailer 
skip  2  lines 

print  column  47,  ********  CONFIDENTIAL 
skip  1  line 

print  column  60.  pageno 


before  group  of  ctscontrol_ssn_.no 
let  ent  »  cntrl 

print  ent  using  '*###.  ",  csscontrol_*sn_no,  2  spaces,  1  rpproc_m 

2  spaces,  ssnde»c_cmdCl,  83.  2  spaces,  lrpproc_ssn_title.  3  sp 
if  tsnd*f_d*f_l>0  then  print  ssndef_def_l  using  '* *#*•#'•.  ••-'*. 

if  ssndef_def_2>0  than  print  ssndef_d#f_2  using  "IHHMMt'', 

if  ssndef _def_3>0  than  print  ssndef_def_3  using  “«###*".*'-**, 

if  ssndef _def _4>0  than  print  s*nd*f_def_4  using  '*#####*'.  "-**, 

if  ssndef _def _5>0  then  print  s*ndef_def_5  using 

print  column  129. pr iort_score 
if  ssnd*f_def _6>0  then  begin 
print  84  spaces! 

if  ssndef _def_6>0  then  print  ssndef_def_6  using 
if  ssndef _def_7>0  then  print  ssnd*f_def_7  using 
if  ssndef _def_8>0  then  print  »*ndef_d*f_B  using 
if  »sndef_def _9>0  then  print  ssndef_def_9  using 
if  ssndef _def_10>0  then  print  ssnd*f_def_l 0  using  '*#####” 
print  ’*“ 
end 

let  flag  «  1 


iss_name, 

acesi 

ssndef  _con_li 
ssnd*f_con_2i 
ssndef_con_3( 
ssndef_con_4i 
ssndef  con  5i 


*•#####".  **-' 
**####*",  *'- 
*'##*##**,  **- 
**#####•*,  **- 


.  ssndef_con_6i 
. ssndef_con_7i 
. ssndef_con_8i 
. ssndef_con_9; 

-**,  ssndef_con_10i 


on  every  record 

if  flag>l  then  begin 


print  84 

spaces! 

if 

ssndef 

_def _l>0 

then 

i  f 

ssndef 

_def_2 >0 

then 

i  f 

ssndef 

_def..3>0 

then 

i  f 

ssndef 

..def  _4>0 

then 

print  s sndef _.def.._l  using 
print  ssndef_def_2  using 
print  ssndef_def  .3  using 
print  ssndef_def  4  using 


#####",  ssndef_con_li 
##*##**,  •*-■•■  ssndef_con_2, 
####(*",  **-",  ssndef _con  3; 
PdlMiH",  ’*-",  ssndef  ,c on.  4, 
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if  ssn 
print 
if  sin 
prin 
if  s 
if  s 
if  s 
if  s 
if  s 
prin 
end 
end 

let  flag 


def_def_3>0  then  print  ssndef _def_b  using  “ft####" i  ssndef_c on_5; 


def_def_6>0  then  begin 
t  84  spaces; 

sndef _def _6>0  then  print  »»ndef_def_6  using  "#####"■ 
sndef_def_7>0  then  print  ssndef_def_7  using 
sndef _def_8>0  then  print  stndef_def_8  using  “###*#“» 
sndef _def_9>0  then  print  ssndef_def_9  using  "##•*#"» 
sndef_def_10>0  then  print  ssndef _def_10  using  "#«### 


f lag+1 


ssndef  _con_6; 
ssndef_con_7: 
ssndef _con_8; 
ssndef _con_9i 
.  ssndef  con  10 
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4.  Workoackaae  1  to  H  Priority  Report 


/u/plan/rpt.Linda/priorwpall 

This  report  rank  orders  funded  workpackages*  by  their  priority  rating  score  contained  In 
the  file  prior2.  It  prints  a  list  of  workpackages  In  priority  order.  The  related  program  priorwpcmd 
limits  the  workpackages  to  a  single  command,  and  the  report  prlorwp  prints  the  data  of  pr1or2  In  a 
simpler  format. 


•Note  -  The  report  determines  funding  levels  incorrectly  and  so  will  Include  all  workpackages  In 
cssprrdte. 


1 5  i  i 


r  " 

tr 


\r 


t 
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<  Workpackage  Priority  Ratings  Report  for  all  Commands  > 

{  For  Only  Funded  Wor kpac kages} 

<  Previously  Computed  Priorities  from  Priori  and  PriorZ  > 


database  mat_plan  end 


define 

variable  diff  type  integer 
variable  ent  type  integer 
end 


output 

left  margin  0 
right  margin  132 
report  to  "pr iorupal 1.  out" 
end 


read  into  a 

ukpkg_no_ind«  ukpkg_pe  wkpkg_proj  ukpkg_task  ukpkg_title 
“*kPl‘ll_^'<nd_yrO  ukp  kg_f  und_yr  1  u/kp  kg_f  und_yr2  hi kpkg_fund_yr3 
“kpkg_f und_yr4  ukpkg_f und_yr5  wkpkg_fund_yr6  ukpkg_f und_yr7 
prior2_score  prior2_nsys 

inhere  wkpkg_cat»"6.  3“  and  wkpkg_subcat  O  "6.  9” 
and  (wkpkg_pc«cssprrdte_pe) 
and  <uikpkg_fund_yrO  >  "0"  or 
mkpkg_fund_yr 1  >  "0"  or 
“kpkg_fund_yr2  >  "0“  or 
ukPk9_fun<l_9r3  >  ”0"  or 


ukPk9_fund_9r3  >  "0"  or 
“kPk9_fon<l_y*'4  >  " 0 "  or 
“kPk9_* ur,d_yr5  >  "0"  or 
“kPk9_f  un<*_yr6  >  "0"  or 
1  wkpkg_fund_yr7  >  "O" > 

joining  wkpkg_proj  ■  cssprrdte _proj_no 

and  utkpkg_no_ind>  ■  optional  pr ior2_wkpkg_indx 

end 


sort  by  prior2_score  descending  prior2_nsys  descending  u/kpkg  no  end 


irtf-  ^ 
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format 


page  header 

print  column  47. "•#**##  UNCLASSIFIED  ••••••" 

•kip  2  linos 

print  column  44.  “PR ION I TV  RATINGS  FOR  CSS  FUNDED  MORHPACKAQEB" 
skip  2  linos 

print  “PRIORITY  PE  PROJ  TASK  UKPKG  NO  COMMAND  TITLE". 

34  spaces. “  RATING  »  SYS" 
skip  1  linos 

page  trailer 
skip  2  linos 

print  column  47. “•••***  UNCLASSIFIED  *****•“ 
skip  1  lino 

print  column  60.  pagono 

after  group  of  wkpkg_no 

if  ukpkg_fund_yrO  >  "O"  or 
“••pkg_fund_yr  1  >  “0"  or 
»lpl>l.funil_yr2  >  "0“  or 
“kP'|9^und_yr3  >  "0"  or 
>  "O"  or 
klpliI.iundjrS  >  "0"  or 
“kpkg_fund_yr6  >  *0"  or 
uikpkg_fund_yr7  >  *0"  then 

lot  ent  »  cnt+1 

print  cnt.  "»  3  spaces,  tekp kg_pe.  3  spaces.  wkpkg_pro  j.  3  spaces.  t*kpkg_task. 

1  space.  sikpkg_no.  3  spaces.  wkpkg_cmd.  wkpkg_t  i  tie.  pr  ior2_score.  prior2_nsgs 
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i  CSS  Related  Syetem  Priority  Rating*  Developer  > 

<  Compare  Rating  Methodol og ias  > 

databaia  mat_plan  and 

define 

variabla  ndaf  typa  intagar 
variabla  acoraO  typa  float 
variabla  acorat  typa  float 
variabla  acora2  typa  float 
variabla  convalO  typa  float 
variabla  convall  typa  float 
variabla  conva!2  typa  float 
variabla  dafvalO  typa  Intagar 
variabla  dafvall  typa  float 
variabla  dafval2  typa  float 
variabla  x  .typa  float 

variabla  x2  typa  float 

variabla  x3  typa  float 

and 

output 

paga  langth  9999 
left  Margin  O 
right  Margin  132 
top  Margin  O 
report  to  "pcoMpO.  out" 
and 

read  into  a 

c»»control_»*n_no 
senpri_defic  aanpr i_con_val 

where  tenpr i _c on_va  1  <>  "  "  and  eaacontrol._type  >1 
joining  c*»control_»«n_no  *  unpr i_aan_.no 
and 

xort  by  c aacontr o l _**n_no  **npri._def i c  impri.ton  .val  end 
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format 


boforo  group  of  coccontrol_oon_.no 
lot  icor>0  “0.0 
lot  icortl  “  O.  0 
lot  scoro2  «  1.0 
lot  ndof  =  O 

boforo  group  of  oonpri_dofic 
if  oonpr  l_dof  iOO  than  bogin 

if  oonpri_con_vol““A”  than  bogin 


lot  convalO 
lot  convoll 
lot  convol2 
also  if  oonpri 
lot  convolO 
lot  convoll 
lot  convol2 


■  16.  0 
“  100.  0 
“  0.  B  and 

_eon_vol  ■  "B“  than  bogin 

-  B.O 

-  so.  0 

“  0.  6  ond 


olso  if  ssnpri_con_vol 


lot  convolO  > 
lot  convoll  • 
lot  convol2  • 
olio  if  oonpri. 
lot  convolO  > 
lot  convoll  ■ 
lot  convoiZ  ■ 
oloo  if  oonpri. 


4.  O 
23.  O 
O.  4  and 
.Con  voi  ■  ”D“ 
'  2  0 
'  10.  0 
0.  2  and 
convol  “  “E“ 


than  bogin 


than  bogin 


than  bogin 


lot 

convolO 

m 

1.  0 

lot 

convoll 

m 

3.  0 

lot 

convol2 

m 

0.  1 

oa  bogin 

lot 

convolO 

■ 

0.  0 

lot 

convoll 

- 

0.  0 

lot 

canvol2 

■ 

0.  0 

ond 

if  oonpri_dafi< 
lot  dofvolO  < 
lot  dofvoll  ■ 
lot  dafvalS  < 


“1001  than  bogin 
'  19 

'  0.  606331 
'  O  497007 


'  "4..*  S  ^ 
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alee  bagin 

let  defvalO  «  (300-eanpr i_daf ic l/IO+l  " 
lat  x  -  -eenpri.def ic/22B.  0 
let  x2  ■  i*i 
lat  i3  *  *2*« 

let  defval 1  »  I  +  i+i2/2,  0-K3/6.  0+«2*i2/24.  0+«3*>2/120.  0+i3«,3/7ZO.  O 
lat  defval2  -  1. 0-<eenpr i_def ic-O.  91/228.  0 
and 

lat  acoraO  ■  ecoraO+defvalOaconvalO 
lat  acoral  “  acorel+defval laconval 1 
lat  acore2  «  ecore2*< 1. O-def val2econval2) 
lat  ndtf  ■  nd»f+l 
and 

after  group  of  caecontrol_aan.no 
if  ndeOO  than  bagin 

lat  acore2  "  1. 0-ecore2 

print  caacontrol  aan  no# " I ndaf . " I "■ acoraO. " I acoral  uaing  “#•*»#.  b*# 

»  *  I “> acora2  uaing  «•••««” 


fti 
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6.  Priority  Rating  Schemes  Comparison  Report 


/u/pl an/rpt .11 nda/pcomp 

This  report,  using  the  data  in  pcompl,  pcompl,  and  pcomp2,  compares  the  results  obtained  by 
each  of  the  three  alternative  system  rating  schemes.  It  produces  standard  statistical  reports  of 
difference  analysis  and  correlation  coefficients  between  each  pair  of  methods  for  an  actual  data 
sample.  It  compares  the  actual  rankings  obtained  by  each  method  rather  than  the  raw  scores. 


VV  'k  "V"  l&S  .... 


THE  BDM  CORPORATION 


databdse  matplan  and 
define 


variable 

pflag 

type 

integer 

var iabla 

ent 

type 

integer 

variable 

diff  1 

type 

integer 

variable 

d  i  f  f  2 

type 

integer 

variable 

dif  f  3 

type 

integer 

var iabla 

aaidif f 

type 

integer 

variable 

■el 

type 

float 

variable 

*m2 

type 

float 

variable 

m»3 

type 

float 

variable 

iM 

type 

float 

variable 

saeql 

type 

float 

variable 

siesq2 

type 

float 

var iab le 

»«*q3 

type 

float 

variable 

sfltsqm 

type 

float 

variable 

Ml 

type 

float 

variable 

m2 

type 

float 

variable 

■3 

type 

float 

variable 

MM 

type 

float 

variable 

sdl 

type 

float 

variable 

edS 

type 

float 

variable 

sd3 

type 

float 

variable 

•  da 

type 

float 

variable 

II 

type 

float 

variable 

•  II 

type 

float 

var table 

II 

type 

float 

variable 

•  x2 

type 

float 

variable 

•  y2 

type 

float 

variable 

•  i2 

type 

float 

variable 

»*y 

type 

float 

variable 

III 

type 

float 

variable 

■qi 

type 

float 

variable 

ti 

type 

float 

var iable 

ta 

type 

float 

variable 

t3 

type 

float 

variab  le 

rS 

type 

float 

end 
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output 

loft  margin  0 
right  margin  132 
report  to  "pcomp. out" 
end  i. 

read  into  a 

lrpproc_e»n_t i tie  lrpproc_miee_name 
eendeec_cmd 

pcompO_»m_no  pcompO_ndef  pcompO_ecoreO 
pcompl_eeq_no  pcompl_scorel 
pcomp2_eeq_no  p comp2_ec or e2 
joining  pcompO_een_.no  **  pcompl_een_no 
and  pcompO_een_no  ■  peomp2_een_no 
and  pcompO_een_no  =  optional  lrpproc_sen_no 
and  pcompO_een_no  »  optional  aende*c_een_no 

end 

eort  by  pcompO_ecoreO  deecending  pcompO_ndef  descending 
pcompO_een_no  end  ■ 

format 


on  laet  record 
lot  pflag  »  1 
ekip  to  top  of  page 
let  ml  ■  eml/cnt 
let  m2  ■  em2/cnt 
let  m3  “  em3/cnt 
let  mm  m  emm/cnt 

let  edl  ”  (emeql-cnt»ml»ml >/<cnt-l.  0) 
let  ed2  -  ( emeq2-cnt*m2*m2>/ ( cnt-1 .  O) 
let  ed3  *  <emeq3-cntem3*m3)/<cnt-l.  0) 
let  edm  «  <emeqm-cnt*mm*mm>/< cnt-1.  0> 
ekip  4  linee 

print  “DIFFERENCE  ANALYSIS:  MEAN 

print  “METHOD  A  -  METHOD  S”. ml.  edl 
print  “METHOD  A  -  METHOD  C“.m2. ed2 


print  "METHOD  B  -  METHOD  C”.m3. sd3 


VARIANCE" 
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print  "MAXIMUM  DIFFERENCE  mm. sdm 
■kip  4  linos 

print  column  AO. “METHOD  A  METHOD  B 

print  “COEFFICIENTS  OF  DETERMINATION:  METHOD  A:  “i 


l«t  tl  ■  cnt«sx2-s«*s> 
1st  t2  »  cnt*n2-u*«« 
lot  t3  *  cnt*sx2-sx*sx 
lot  r 2  -  (tt*tt)/(t2*t3> 
print  column  60. r2  using 
lot  tl  -  cnt**xy-s x*sy 
lot  t2  »  cnt**x2-s»*sx 
lot  t3  -  cnt*sy2-syosy 
lot  r2  -  (tiotl )/<t2*t3) 
print  column  77. r2  using 
lot  tl  »  cnt*s x z-s «os z 
lot  t2  -  cnt*»x2-sx*s x 
lot  t3  -  cnt*sz2-sz*sz 
lot  r2  -  (tl*tl>/<t2ot3) 
print  column  74. r2  using 
print  “ 

lot  tl  «  cnt«sy2-sy*sy 
lot  t2  “  cnt*sy2-sy#sy 
lot  t3  «  cnt»sy2-sy*sy 
lot  r2  -  (tl*tl)/(t2*t3) 
print  column  77. r2  using 
lot  tl  *  cntosy z-sy*s i 
lot  t2  «  cnt*sy2-sy»si 
lot  t3  *  cnt*sz2-sz*sz 
lot  r2  -  <tl*tl)/<t2*ta> 
print  column  94. r2  using 
print  " 

lot  tl  *  cnt*sz2-sz*sz 
lot  t2  “  cntosz2-szosz 
lot  t3  “  cnt*»z2— sz*s z 
lot  r2  -  <tl#tl >/<t2»t3) 
print  column  94. r 2  using 
skip  8  linos 


«•«««“> 


•**»*"< 


«««««” 

METHOD  B  .  "i 


#####" I 


#####“ 

METHOD  C.  "» 


#*###'* 


METHOD  C“ 
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print  “METHOD  A: 
print  “ 
skip  2  lines 
print  "METHOD  B: 
print  • 
skip  2  lines 
print  “METHOD  C: 
print  " 


300  COMPLEMENT  DEFICIENCY  VALUES". "  TIMES  GEOMETRIC  CONTRIBUTION 
SUMMED  OVER  ALL  APPLICABLE  DEFICIENCIES  FOR  EACH  SYSTEM" 

EXPONENTIAL  DEFICIENCY  VALUES  TIMES"."  GEOMETRIC  CONTRIBUTION  VAL 
SUMMED  OVER  ALL  APPLICABLE  DEFICIENCIES  FOR  EACH  SYSTEM" 

LINEARLY  DECREASING  DEFICIENCY  VALUES"."  TIMES  LINEAR  CONTRIBUTIO 
MATHEMATICALLY  COMBINED  TO  ACCOUNT  FOR"."  OVERLAP  AMONG  APPLICABL 


page  header 

print  colusin  37. "CSS  RELATED  SYSTEM  PRIORITY  RATINGS  -  COMPARISON  OF  METHODS" 

skip  2  lines 

if  pflag  «  O  then  begin 

print  column  73. "  METHOD  A  METHOD  B  METHOD  C  DIFFERENCES" 

print  "8BN" »  4  spaces.  "DA  MA”.2  spaces.  "AMC  MGR",  3  spaces. "TITLE". 

column  79."  SEQ/SCORE  BEQ/SCORE  BEQ/SCORE  A&B  A&C  BfcC  MAX" 


end 

else  skip  2  lines 
skip  1  line 

page  trailer 
skip  2  lines 
print  column  64.  pageno 

before  group  of  pcompO_ssn_no 
let  cnt  *  cnt+1 
let  diffl  ■  cnt-pcomp l_seq_no 
if  d i f f 1 <0  then  let  diffl  -  -diffl 
let  diff2  **  cnt-pcomp2_seq_no 
if  diff2<0  then  let  diff2  -  -dlff2 
let  diff3  «  pc omp l_seq_no-pc omp2_seq_no 
if  d if f3<0  then  let  dtff3  -  -diff3 
let  maidiff  -  0 

if  d i f f l>maid i f f  then  let  maidiff  -  diffl 

if  diff2>maidiff  then  let  maidiff  •  diff2 

if  d 1 f f 3>mai d i f f  then  let  maidiff  *  diff3 


1 

] 

] 

1 

1 


f. 

i 

i 
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let  ami  *  sml+diffl 
let  sm2  =  sm2+d i  f  f  2 
let  sm3  -  am3+diff3 
let  smm  »  smm+maxdi f f 

let  smsql  »  smsql+d if f led i f f 1  , 

let  smsq2  ■  smsq2-t-d  i  f  f  2«d  1  f  f  2 

let  smaq3  -  »mi q3+d i f f 3*d i f f 3 

let  smsqm  «*  smsqm+nia  xd  i  f  f  *na  x  d  1  f  f 

let  ax  «*  «i+cnt 

let  aq  «•  ay +pc omp  1  _aeq_no 

let  at  «*  sz+pcomp2_seq_no 

let  s«2  -  ix2+cnt*cnt 

let  sy2  -  ay2+pc omp l_t eq_no*pc omp l_seq_na 

let  s>2  «  sz2+pcomp2_saq_no*pcamp2_seq_no 

let  a>y  «  a «y +c n t apt omp l_*eq_no 

let  an  ■  s> z+cnt«pcomp2_seq_no 

let  ayi  ■  ay z  +  p c omp 1 _aeq_no»p c omp2_aeq_no 

print  pcompO_ssn_no,  2  spaces,  lrpproc_miss_name,  ssnde»c _cmdL 1 ,  103/ 
lrpproc_aan_ti tie. 

column  76, cnt  uaing  "*##“. pcompO_acoreO  uaing  “####", 

column  88,  pcompl_seq_no  uaing  pcompl_scorel  uaing  “###.*", 

column  lOO.  pcomp2_aeq_no  uaing  pcomp2__score2  using 

1  space, diffl  using  "  - #",diff2  uaing  "  - #".diff3  using  *  - 

mazdiff  using  " - *'■ 
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